diagram als Bild in UF wiedergeben ( fortsetzung)
18.01.2005 21:24:37
simon
habe gestern abend schon mal eine Frage gestellt, mit dem gleichen Betreff, wollte ein Beispiel Code, dass ich ein Diagramm als BIld speichern kann und in einer UF als Bild wiedergeben,
danke für die antwort HerbertH, habe sie aber erst gerade gelesen, und deshalb nochmals eine Frage aufgemacht weil ich noch ein kleines Prob. habe.
aber der Code ist genau der richtige,
habe ihn hier nochmals eingefügt,
meine Frage dazu woher weiß ich das wievielte ChartObjects mein Diagramm ist?
bekomme immer die Fehlermeldung Index außerhalb des gültigen Bereichs, an was liegt das?
'in ein Modul
Sub Diagr_als_Grafik_speichern()
Dim gr As Chart
Set gr = Sheets("Tabelle3").ChartObjects(1).Chart
gr.Export Filename:="c:\Eigene Dateien\diagr1.gif", _
FilterName:="GIF"
End Sub
'in die Userform
Private Sub UserForm_Activate()
UserForm1.Picture = LoadPicture("c:\Eigene Dateien\diagr1.gif")
End Sub
ich hoffe mir kann heute nochmal jemand helfen gruß simon