unerwünschte jpg.Datei unterbinden.
09.10.2005 14:46:36
marc
ich will in einer UserForm ein Chart(als Grafik )generieren.
Der VBA-Code den ich für die generierung verwende funktioniert.
Nachdem ich die Datei geschlossen habe musste ich feststellen,dass in dem
gleichen Pfad eine gif.Datei entsteht (selbstaendig )
Wie kann ich die neue unerwünschte gif.Datei unterbinden.
Private Sub cmd_Graphik_Click()
Set Diagramm = Sheets("DB").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
marc
Anzeige