Diagramm in Userform

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