AW: DiagrammNAME - rausfinden und festlegen
14.03.2006 10:52:49
ANdreas
Hallo Darren,
eine Frage: woran erkennst Du denn welches Diagramm das richtige fürs umbenennen ist?
Ich gebe Dir mal 2 Prozeduren als Beispiel mit. Die erste liest alle Diagramme des ActiveSheets aus und gibt sowohl deren Namen als auch deren Diagrammtitel zurück (wenn vorhanden).
Die zweite ändern beispielhaft den Namen einen Diagramms, wenn ein bestimmter Diagrammtitel gefunden wurde:
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
Gruß
Andreas