Ich möchte ein Diagramm ("2002") in den Frame einer Userform einfügen.
Aus der recherche habe ich folgenden Code:
Private Sub CommandButton3_Click()
ActiveWorkbook.Charts("2002").Export "Statistic.gif"
With frmChart
.Picture = LoadPicture("Statistic.gif")
'.Picture.AutoSize = True
' .imgChart.Picture = LoadPicture("Statistic.gif")
' .imgChart.PictureSizeMode = fmPictureSizeModeZoom
' .Show
End With
Kill "Statistic.gif"
End Sub
Ich mußte einige Zeilen auskommentieren, da die Fehlermeldung
"unterstützt diese Eigenschaft nicht" kam.
Jetzt wird das Diagramm zwar eingefügt, aber die Größe passt sich nicht dem Frame an.
Kann mir jemand weiterhelfen?
Vielen Dank vorab
Michael