hatte vor einiger Zeit mal ein Beispiel, in dem Ein Diagramm als Gif abgespeichert wurde, und dann in der UF als Bild wiedergegeben wurde, weiß jemand den Code, oder hat zufällig ein Beispiel?
bedanke mich schon mal für eure mühe
gruß simon
'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