AW: Chart als Bild speichern
11.02.2004 10:52:20
Daniel Barczak
Hallo,
je nachdem für welchen Zweck und welchen Anspruch gibt es verschiedene Möglichkeiten:
als gif:
Sub DgmSpeichern()
Dim Filename As String, Pfad As String
Pfad = ActiveWorkbook.Path
MsgBox Pfad
Filename = InputBox("Bitte Diagramm-Namen eingeben. Bereits vorhandene " & _
"Diagramme mit gleichem Namen werden ohne Vorwarnung überschrieben! " & _
"Es wird nach " & Pfad & " gespeichert!", _
"Diagramm als *.gif speichern", "Dgm_1.gif")
If Right(Filename, 4) <> ".gif" Then Filename = Filename & ".gif"
ActiveChart.Export Pfad & "\" & Filename
End Sub
oder jpeg:
Sub DgmSpeichernjpg()
Dim Filename As String, Pfad As String
Pfad = ActiveWorkbook.Path
MsgBox Pfad
Filename = InputBox("Bitte Diagramm-Namen eingeben. Bereits vorhandene " & _
"Diagramme mit gleichem Namen werden ohne Vorwarnung überschrieben! " & _
"Es wird nach " & Pfad & " gespeichert!", _
"Diagramm als *.gif speichern", "Dgm_1.jpg")
If Right(Filename, 4) <> ".jpg" Then Filename = Filename & ".jpg"
ActiveChart.Export Pfad & "\" & Filename, filtername:="JPEG"
End Sub
Unter http://www.BMSLtd.co.uk gibt es ein PastePicture.zip, mit dem auch qualitativ höherwertige Bilder im Rasterformat oder anderen Formaten (emf oder wmf sehr gut zur skalierung in Word geeignet) erstellt werden können. PastePicture.Zip verarbeitet Inhalte des Clipboards. Wenn es um eine spezielle Variante nur für Diagramme geht, kannst Du Dich nochmal direkt melden. Ich habe da eine etwas abgewandelte Form von Stephen Bullen.
Gruß Daniel