DIM gehört wie gesetzt?
17.03.2005 11:21:14
steve
habe diesen Code:
Private Sub CommandButton3_Click()
Dim Diagramm As ChartObject, dateinamen As String
Set Diagramm = Sheets("Gesellschaftsauswertung").ChartObjects(1).Chart
Diagramm.Parent.Width = Image1.Width
Diagramm.Parent.Height = Image1.Height
dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm.gif"
Diagramm.Export Filename:=dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(dateiname)
End Sub
Wenn ich dieses Userform aus einer xlt (Vorlage) öffne dann streicht er mir den Teil
Image1.Picture = LoadPicture(dateiname)
an. Wenn ich es aus ganz normal xls öffne hat er damit kein Problem.
Woran kann das liegen?
MfG
Steve