mit
Sub degas()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarStacked
ActiveChart.SetSourceData Source:=Range("A1:E10")
ActiveSheet.Shapes("Chart 5").Name = "Impressionisten"
End Sub
erhalte ich ein Diagramm.Im weiteren Verlauf wird es wieder gelöscht.
Ein erneuter Aufruf funktioniert nicht, da aus "ActiveSheet.Shapes("Chart 5")" inzwischen "Chart 8" o.ä. geworden ist.
Wie kann man einem Diagramm einen Namen geben, wenn der des soeben erstellten (hier: Chart 5) nicht bekannt ist?
Schöne Grüße
Rolf