Diagramm Zeichnungsfläche Bild einfügen
04.02.2023 15:40:10
Martin
gibt es eine Lösung für folgendes Problem?
Ich habe ein Excel-File mit einem Diagramm, bei dem ich den Hintergrund abhängig vom Programmlauf umschalten möchte. Bisher mache ich das mit der folgenden VBA SUB:
Private Sub HintergrundBild()
Dim bild As String
' Das Hintergrundbild ("Bild_1.png") befindet sich im gleichen Verzeichnis!
bild = ActiveWorkbook.Path & "\" & "Bild_1.png"
' Nun wird "Bild_1" als Hintergrund beim "Diagramm_1" eingefügt
ActiveSheet.ChartObjects("Diagramm_1").Chart.PlotArea.Format.Fill.UserPicture bild
End Sub
Das funktioniert auch gut, aber die Bilder, die ich verwenden möchte müssen als zusätzliche Dateien abgespeichert (und mit kopiert) werden.Nun möchte ich diese Bilder in einem zusätzlichen Arbeitsblatt meiner Excel-Datei anlegen, so dass diese bei der Weitergabe der Exceldatei immer dabei sind.
Wie kann ich vom VBA Unterprogramm auf auf die so gespeicherten Bilder zugreifen und als PlotArea Hintergrund eintragen?
Besten Dank im Voraus für euere Hilfe.
Viele Grüße,
Martin
