Umwandlung von Excel-Tabellen

Systembastelstube: Toto-Experten präsentieren ihre Systeme sowie Gratis-Tools und auch aktuelle News über das Toto kommen nicht zu kurz.
Antworten
Aufsteiger
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)
Beiträge: 10838
Registriert: 7. Aug 2007, 11:30

Umwandlung von Excel-Tabellen

Beitrag von Aufsteiger »

Hallo zusammen,

wer meine Postings (insbesonderr zur TG der Statistik-Freaks) verfolgt, weiß, dass ich unsere Tipps immer in einem umgewandelten Excel-Format direkt hier ins Forum eingetragen habe. Ich nutze dafür picupload.

Leider habe ich das Tool/Programm zur Umwandlung der Excel-Tabellen (hatte mir Meisterkeks damals geschickt) aus Versehen gelöscht (komplett). Kann mir einer weiterhelfen und sagen, wo ich dieses Tool finde. Nach dem Öffnen der Datei erschien in Excel ein Unterpunkt (bei "Datei"), den man nutzen konnten, um einen markierten Bereich umzuwandeln.

Wäre super, danke Euch!
Aufsteiger
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)
Beiträge: 10838
Registriert: 7. Aug 2007, 11:30

Re: Umwandlung von Tabellen/Bildern aus Excel

Beitrag von Aufsteiger »

Hallo zusammen,

nachdem ich meinen PC auf 64-Bit-System umgestellt habe, läuft das Programm leider nicht mehr :-(

Vielleicht kennt sich damit einer aus oder hat das Programm für das neue System ja?

Es heißt "Markierten Bereich als Grafik speichern", ist mit MS Visual Basic for Applications erstellt worden und wird wie folgt beschrieben:

'= Module: modPublic =
'= Type: Standard Module =
'= =
'= Developer: Rob Bruce =
'= Date: 06-Sep-1999 =
'= =
'= Description: Public routine for the Range To GIF utility. =
'= =
'= Subprocedures: sRangeToGIF =
'= Functions: None =
'= Properties: None =
'= DLL Declares: None


Also, wo sind die Excel-Experten? Danke vorab!!!

PS: Ansonsten hat vielleicht einer nen Tipp, wie ich aus Excel heraus Bilder meiner Tipps erstellen kann, die man dann z.B. über http://www.pic-upload.de/ hochladen und hier einstellen kann. Danke!
Benutzeravatar
Joerschi
Toto-Analyst (jo)
Toto-Analyst (jo)
Beiträge: 7721
Registriert: 3. Feb 2008, 00:06
Wohnort: Hinter den Bergen bei den 7 Zwerg-innen- (manchmal auch in Vancouver)

Re: Umwandlung von Tabellen/Bildern aus Excel

Beitrag von Joerschi »

Aufsteiger hat geschrieben:Hallo zusammen,

nachdem ich meinen PC auf 64-Bit-System umgestellt habe, läuft das Programm leider nicht mehr :-(

Vielleicht kennt sich damit einer aus oder hat das Programm für das neue System ja?

Es heißt "Markierten Bereich als Grafik speichern", ist mit MS Visual Basic for Applications erstellt worden und wird wie folgt beschrieben:

'= Module: modPublic =
'= Type: Standard Module =
'= =
'= Developer: Rob Bruce =
'= Date: 06-Sep-1999 =
'= =
'= Description: Public routine for the Range To GIF utility. =
'= =
'= Subprocedures: sRangeToGIF =
'= Functions: None =
'= Properties: None =
'= DLL Declares: None


Also, wo sind die Excel-Experten? Danke vorab!!!

PS: Ansonsten hat vielleicht einer nen Tipp, wie ich aus Excel heraus Bilder meiner Tipps erstellen kann, die man dann z.B. über http://www.pic-upload.de/ hochladen und hier einstellen kann. Danke!
Versuchs mal über http://xlforum.herber.de/ , falls hier niemand etwas weiß.
Wunsch für Systempostings von Filterspielern:

a) Angabe der Filtervollreihen des Systems (also Reihenanzahl vor der Garantie-Kürzung)
b) auf welche Garantie wurde gespielt (12er, 11er, 10er...) ?
Reddiamond4836
Tipp-Routinier
Beiträge: 321
Registriert: 1. Dez 2007, 09:30

Re: Umwandlung von Excel-Tabellen

Beitrag von Reddiamond4836 »

Hallo,

ist das Problem am Thread-Anfang noch aktuell? Ich bin relativ fit in VBA. Habe dieses Forum erst vor kurzem wiederentdeckt und antworte daher erst jetzt.

Ich glaube nicht, dass das Problem am 64bit Windows hängt, sondern an der genutzten Office/Excel-Version. Sicherlich hattest du vorher Excel 2003 und nun 2007 oder neuer.

Kannst mir gerne mal die Datei zukommen lassen und ich guck mir die Sache an.

Als Quick-n-Dirty könntest du nachfolgendes Makro probieren. Bei mir hat es unter 2003 und 2010 funktioniert. Nur stimmen die Begrenzungsränder nicht 100%.

Reddi

Code: Alles auswählen

Option Explicit
'Harold Staff -- see http://www.mvps.org/dmcritchie/excel/xl2gif.htm
'XL2GIF_module -- GIF_Snapshot
Dim container As Chart
Dim containerbok As Workbook
Dim Obnavn As String
Dim Sourcebok As Workbook

Function SelectArea() As String
Dim Internrange As Range
On Error GoTo Brutt
Set Internrange = Application.InputBox("Select " _
    & "range to be photographed:", "Picture Selection", _
    Selection.AddressLocal, Type:=8)
SelectArea = Internrange.Address
Exit Function
Brutt:
SelectArea = "A1"
End Function

Function sShortname(ByVal Orrginal As String) As String
Dim iii As Long
sShortname = ""
For iii = 1 To Len(Orrginal)
If Mid(Orrginal, iii, 1) <> " " Then _
      sShortname = sShortname & Mid(Orrginal, iii, 1)
Next
End Function

Private Sub ImageContainer_init()
Workbooks.Add (1)
ActiveSheet.Name = "GIFcontainer"
Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
    ActiveChart.Location Where:=xlLocationAsObject, _
      Name:="GIFcontainer"
ActiveChart.ChartArea.ClearContents
Set containerbok = ActiveWorkbook
Set container = ActiveChart
End Sub

Sub MakeAndSizeChart(ih As Long, iv As Long)
Dim Hincrease As Single
Dim Vincrease As Single
Obnavn = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 1)
Hincrease = ih / ActiveChart.ChartArea.Height
Obnavn = Right(Obnavn, Len(Obnavn) - 1)
ActiveSheet.Shapes(Obnavn).ScaleHeight Hincrease, _
   msoFalse, msoScaleFromTopLeft
Vincrease = iv / ActiveChart.ChartArea.Width
ActiveSheet.Shapes(Obnavn).ScaleWidth Vincrease, _
   msoFalse, msoScaleFromTopLeft
End Sub

Public Sub GIF_Snapshot()
Dim varReturn As Variant
Dim MyAddress As String
Dim SaveName As Variant
Dim MySuggest As String
Dim Hi As Long
Dim Wi As Long
Dim Suffiks As Long

Set Sourcebok = ActiveWorkbook
MySuggest = sShortname(ActiveSheet.Name)
ImageContainer_init
Sourcebok.Activate
MyAddress = SelectArea
If MyAddress <> "A1" Then
    SaveName = Application.GetSaveAsFilename( _
      InitialFileName:=MySuggest _
      & ".gif", fileFilter:="Gif Files (*.gif), *.gif")
    Range(MyAddress).Select
    Selection.CopyPicture Appearance:=xlScreen, _
       Format:=xlBitmap
    If SaveName = False Then
        GoTo Avbryt
    End If
    If InStr(SaveName, ".") Then SaveName _
        = Left(SaveName, InStr(SaveName, ".") - 1)
    Selection.CopyPicture Appearance:=xlScreen, _
       Format:=xlBitmap
    Hi = Selection.Height + 4  'adjustment for gridlines
    Wi = Selection.Width + 6   'adjustment for gridlines
    containerbok.Activate
    ActiveSheet.ChartObjects(1).Activate
    MakeAndSizeChart ih:=Hi, iv:=Wi
    ActiveChart.Paste
    ActiveChart.Export Filename:=LCase(SaveName) & _
         ".gif", FilterName:="GIF"
    ActiveChart.Pictures(1).Delete
    Sourcebok.Activate
End If
Avbryt:
On Error Resume Next
Application.StatusBar = False
containerbok.Saved = True
containerbok.Close
End Sub
Aufsteiger
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)
Beiträge: 10838
Registriert: 7. Aug 2007, 11:30

Re: Umwandlung von Excel-Tabellen

Beitrag von Aufsteiger »

Danke Dir. Habe (aus anderen Gründen) auf 32-bit-Office-Version (2010) umstellen müssen, jetzt klappt es zum Glück wieder. Wobei die Grafiken nicht voll angezeigt werden, sondern verkleinert. Wenn Du mir per PN Deine Mailadresse schickst, sende ich Dir die Datei mal zu.

Danke und LG

Thomas (Aufsteiger)
Antworten

Zurück zu „Toto-Werkstatt: Systeme, Tools und News“