Ich möchte die Namen, die im Diagrammkopf angezeigt werden, ändern.
Am Besten soll da der Diagramm-Titel angezeigt werden.
Gruß Conny
PS:Hier mal mein Versuch sie umzubenennen.
Sub Diagramm_Rename()
Dim s_tmp As String, anzahl As Integer, chartname_alt As String, chartname_neu As String
s_tmp = ""
With ActiveSheet
'Anzahl der Diagramme im Datenblatt
anzahl = .ChartObjects.Count
Do
'Aktueller Diagrammname
.ChartObjects(anzahl).Select
chartname_alt = .ChartObjects(anzahl).Chart.Name
'Neuen namen vergeben
'On Error Resume Next
.ChartObjects(anzahl).Chart.Name = "Diagramm " & anzahl 'das klappt nicht! Wenn ich das .Chart weglasse
chartname_neu = .ChartObjects(anzahl).Chart.Name 'ist das ein anderer Name, wo auch immer der ist.
s_tmp = s_tmp & chartname_alt & ":" & chartname_neu & vbLf
'Anzahl reduzieren
anzahl = anzahl - 1
Loop Until anzahl = 0
End With
'MsgBox ausgeben ( alt : neu )
MsgBox s_tmp
End Sub