Hallo da draußen,
habe einmal wieder ein kleines Problem mit meinem geliebten Excel und ich hoffe Ihr könnt mir weiterhelfen. Lasse mir mit einem Makro Diagramme erzeugen und auf ein Sheet kopieren. Von da möchte ich sie gerne verschieben/anordnen. Soweit ich weiß benennt Excel die Diagramme intern als "Diagramm xy" ; Durchlaufende Nummerierung pro Sheet. Da ich aber nicht so genau weiß wieviele Diagramme schon auf dem Sheet sind möchte ich die Diagramme gerne selber bennen und später auch mittels des verteileten Namens wieder darauf zugreifen können. Wie kann ich einen Namen vergeben? Jedem Diagramm habe ich einen eindeutigen Titel zugeordnet. Kann ich mittels des Titels auf das Diagramm zugreifen?
Habe auch schon im Archiv nachgeschaut, konnte aber mit den gefunden Antworten nicht wirklich etwas anfangen. Auch der Makro Rekorder konnte mir nicht so richtig weiterhelfen! Excel scheint beim wiederholten anfassen des Diagramms dieses auch neu zu benennen.
Siehe Code:
~ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Range("A1").Select
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.Paste~
Euch schon im Vorhinein tausend Dank!
Hauptstadtgrüße
vom Flip