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?"