Hintergrundbild eines Diagramms aus Bild laden
03.06.2017 11:21:33
Jochen
ich habe ein Diagramm, in welches per Buttons das Hintergrundbild der ChartArea geändert werden soll.
Wenn ich nun per Makro-Aufzeichnen Funktion mir den Code ansehe, wird ein Code mit Dateipfad angegeben:
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Select
With ActiveSheet.Shapes("Diagramm 5").Fill
.Visible = msoTrue
.UserPicture "C:\Users\Private\Pictures\bild1.png"
.TextureTile = msoFalse
End With
Quasi sowas:
Sub bild1_laden()
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Paste
end sub
Sub bild2_laden()
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Selection.Copy
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Paste
end sub
Bis jetzt habe ich noch keine Lösung für mein Problem gefunden.
Excel Version: 2016