Druckbereich als gif-Datei speichern
13.09.2002 13:34:37
Holger Meinert
Das unten aufgeführte Makro speichert mir das "Diagramm 1" als
gif-Datei.Gibt es die Möglichkeit den ausgewählten Druckbereich
als gif-Datei zu speichern.
Danke zusammen !!
Sub DiagrammAlsGifSpeichern()
Dim GDiagramm As Chart
Dim NameT As String
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
Const PfadDiagramm = "C:\kill\"
Set GDiagramm = ActiveChart
NameT = InputBox("Name der Datei:", "Export Chart", ActiveChart.Name)
If NameT <> "" Then
GDiagramm.Export Filename:=PfadDiagramm & NameT & ".pdf", FilterName:="gif"
End If
End Sub
Anzeige