Sub AuflistungAllerChartObjects()
Dim s$, ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
s = s & ch.Name
If ch.Chart.HasTitle Then
s = s & " - " & ch.Chart.ChartTitle.Characters.Text & vbCrLf
Else
s = s & vbCrLf
End If
Next ch
MsgBox s, , "Name - Diagrammtitel"
End Sub
Sub UmbenennenChart()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
'Umbenennen abhängig vom Diagrammtitel
If ch.Chart.HasTitle Then
Select Case ch.Chart.ChartTitle.Characters.Text
Case "Test Diagramm"
ch.Name = "Neuer Name"
Case "Umsatz blabla"
ch.Name = "Umsatzdiagramm"
End Select
End If
Next ch
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen