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!
Umwandlung von Excel-Tabellen
-
- Tipp-Spezialist (auf)
- Beiträge: 10905
- Registriert: 7. Aug 2007, 11:30
-
- Tipp-Spezialist (auf)
- Beiträge: 10905
- Registriert: 7. Aug 2007, 11:30
Re: Umwandlung von Tabellen/Bildern aus Excel
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!
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!
- Joerschi
- Toto-Analyst (jo)
- Beiträge: 7850
- 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
Versuchs mal über http://xlforum.herber.de/ , falls hier niemand etwas weiß.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!
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...) ?
a) Angabe der Filtervollreihen des Systems (also Reihenanzahl vor der Garantie-Kürzung)
b) auf welche Garantie wurde gespielt (12er, 11er, 10er...) ?
-
- Tipp-Routinier
- Beiträge: 328
- Registriert: 1. Dez 2007, 09:30
Re: Umwandlung von Excel-Tabellen
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
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
-
- Tipp-Spezialist (auf)
- Beiträge: 10905
- Registriert: 7. Aug 2007, 11:30
Re: Umwandlung von Excel-Tabellen
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)
Danke und LG
Thomas (Aufsteiger)