Diagramm in userform
20.08.2006 21:21:32
Frank68
folgende Ausgangslage:
Habe Diagramm in Tabelle 1. Über Button Aufruf Userform und Anzeige Chart mit folgendem Code:
Private Sub UserForm_Activate()
Dim dia As Chart
Set Diagramm = Sheets("Tabelle1").ChartObjects(1).Chart
dia.Parent.Width = Image1.Width
dia.Parent.Height = Image1.Height
dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
dia.Export Filename:=dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(dateiname)
End Sub
Das funzt aber nur, wenn Diagramm in Tabelle integriert ist. Wenn Diagramm in Extrablatt, dann..?
...
Set Diagramm = Sheets("Diagramm1").ChartObjects(2).chart
Funktioniert nicht.
Bin für Hilfe sehr dankbar!