DIM gehört wie gesetzt?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: DIM gehört wie gesetzt?
von: steve
Geschrieben am: 17.03.2005 11:21:14
Hallo,
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
Bild

Betrifft: AW: DIM gehört wie gesetzt?
von: Bert
Geschrieben am: 17.03.2005 11:29:36
Eine neue datei aus einer *.xlt erzeugt, hat noch keinen Pfad.
Bert
Bild

Betrifft: AW: DIM gehört wie gesetzt?
von: steve
Geschrieben am: 17.03.2005 11:31:41
Also muss ich den Pfad festlegen, oder?
Bild

Betrifft: AW: DIM gehört wie gesetzt?
von: Bert
Geschrieben am: 17.03.2005 12:00:38
Hast du mal nachgesehen, wo dein Diagramm.gif landet?
Ich würde es z.B. so machen:
dateiname = "C:\temp\& "diagramm.gif"
Diagramm.Export Filename:=dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(dateiname)
Kill dateiname
Bert
Bild

Betrifft: AW: DIM gehört wie gesetzt? o.T.
von: steve
Geschrieben am: 17.03.2005 12:26:20
vielen Dank, Problem gelöst
 Bild

Beiträge aus den Excel-Beispielen zum Thema "DIM gehört wie gesetzt?"