Excel: Diagramm als .bmp abspeichern und ...
14.09.2017 13:18:18
Kai
Ich habe folgende Problemstellung, ich möchte aus Excel ein markiertes Diagramm als .bmp (oder vllt später auch als .jpg oder .png ) abspeichern. Anschließend soll die abgespeicherte Datei in die allgemeine Zwischenablage kopiert werden, damit ich diese manuell (das ist wichtig) wieder in ein Word Dokument einfügen kann.
Ziel ist es, aus einer Excel Datei in der sich viele Diagramme befinden, diese eines nach dem anderen anzuklicken, dann wird die Bilddatei abgelegt und diese in die Zwischenablage kopiert, in Word habe ich dann ja im Linken Fensterabschnitt alle in der Zwischenablage liegenden Bilder und kann diese nach und nach dort im Word einfügen.
Das hier ist bis jetzt mein Code, den ich mir aus anderen Beiträgen hier im Forum _
zusammengeklaubt habe.
Sub Export()
Dim strGrafikName As String
Dim strPfad As String
Dim strDatei As String
strPfad = ThisWorkbook.Path
strDatei = ActiveSheet.Name & ".bmp"
strGrafikName = strPfad & "\" & strDatei
On Error GoTo ErrorHandler
ActiveChart.Export Filename:=strGrafikName, FilterName:=Right(strGrafikName, 3)
'Grafik in die Zwischenablage einfügen
' Clipboard.SetData LoadPicture("C:\Users\thielk2\Desktop\Tabelle1.bmp"), vbCfBitmap
Clipboard.SetData LoadPicture(ThisWorkbook.Path & " \ " & strGrafikName), vbCfBitmap
' Ende Testcode
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
Ich bekomme nun die Fehlermeldung,
"Fehler beim Zugriff auf Pfad/Datei"
weil ich dort wahrscheinlich irgendwie Syntax Murks gebaut habe, bin wie gesagt leider totaler Anfänger, aber selbst wenn ich den Pfad direkt angebe wie im auskommentierten Teil, dann bekomme ich die Fehlermeldung,
"424 - Objekt erforderlich"
Ich weiß leider nicht was ich falsch mache und wie ich weiter komme.
Könnte mir einer von euch vielleicht aushelfen und meinen Code komplettieren, bei beiden Problemen?
Das der Pfad automatisch richtig erkannt wird und das das Bild danach in die Zwischenablage kommt,
damit ich es danach mit Strg+V in Word einfügen kann, bzw. dort aus der Zwischenablage-Liste auswählen kann?
Vielen, vielen Dank bereits im voraus!
MfG
Euer Kai