nach einigem Googeln und suchen bin ich der Lösung meines Problems schon näher gekommen, komme aber nun nicht mehr weiter. Ich würde gerne ein angeklicktes Diagramm mit mittles eines Commandbuttons als Bild kopieren. Mein Modul sieht folgendermaßen aus:
Sub kopieren1()
Dim Cht As Chart
Set Cht = ActiveSheet.ChartObjects("bla").Chart
Cht.CopyPicture
End Sub
Müsste also anstatt ChartObjects("bla") den Befehl für das angeklickte/ausgewählte Chart haben.Hätte da jemand eine Lösung für mich?
Danke & Gruß
Jan