Hallo Experten
Ich möchte mit folgendem Makro (habe ich im Internet gefunden)
Sub DiagrammAlsGifSpeichern()
Dim GDiagramm As Chart
Dim NameT As String
Const PfadDiagramm = „C:\temp“
Set GDiagramm = ActiveChart
NameT = InputBox(„Name der Datei:“, „Export Chart“, ActiveChart.Name)
If NameT „“ Then
GDiagramm.Export Filename:=PfadDiagramm & NameT & „.GIF“, FilterName:=„GIF“
End If
End Sub
In der Zeile mit NameT = Inputpox(… erhalte ich die Fehlermeldung: Objektvariable oder With-Blockvariable nicht festgelegt.
Wer kann mir weiterhelfen, was mache ich falsch.
Ich verwende Windows95 und Excel 97 SR-2
Gruß und Danke
G.F.
Hi Günther,
habe hier nur Excel2000. Du musst das Diagramm markieren, sonst geht es nicht.
Wenn es dann immer noch nicht funktioniert, lass einfach mal in dieser Zeile
NameT = InputBox(„Name der Datei:“, „Export Chart“,
ActiveChart.Name)
das ActiveChart.Name weg. Das gibt nur den Default-Wert für die Box. Fehlt es, ist die Box zu Beginn leer. Vielleicht funktioniert es so (es kann sein, dass sich hier Excel97 und 2000 unterschiedlich verhalten).
Wenn es auch dann nicht geht, brauchst Du jemand mit Excel97.
Gruß
Sculpture