Bilder exportieren
Peter
ich habe in einer Excel-Datei mehrere Bilder, die ich gerne in einem anderen Programm verwenden möchte. Leider ist es dort nicht möglich, die Bilder aus dem Zwischenspeicher einzufügen. Daher möchte ich gerne die Bilder in eine Bilddatei exportieren. Folgenden Code habe ich gefunden, mit dem ich allerdings nur Diagramme exportieren kann. Was muss ich ändern, damit ich (auch) Bilder exportieren kann?
Sub procDiagrammExportieren()
Dim strGrafikName As String
strGrafikName = Application.GetSaveAsFilename("diagramm", FileFilter:="GIF-Format (*.gif)," _
_
& " *.gif,JPG-Format (*.jpg), *.jpg")
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, FilterName:=Right(strGrafikName, 3)
Exit Sub
ErrorHandler:
If Err.Number = 91 Then
MsgBox "Export nicht möglich. " & "Sie haben kein Diagramm ausgewählt.", vbCritical + _
_
vbOKOnly, "Diagramm als Grafik exportieren"
Else
MsgBox "Der folgende Fehler ist aufgetreten: " & Err.Number & " - " & Err.Description, _
_
vbCritical + vbOKOnly, "Diagramm als Grafik exportieren"
End If
End Sub
Vielen Dank vorab für eure Hilfe + Tipps!
Schöne Grüße,
Peter