Hi Marco,
wie das geht, interessierte mich nach Lesen deiner Frage auch, und ich habe das sogar auf die Schnelle hinbekommen (mit Excel-Hilfe).
Damit wir auf gleichem Level reden:
1) Wir reden hier von einem einzigen Workbook.
2) Dieses Workbook hat mehrere Sheets.
3) Auf jedem oder einigen dieser Sheets befinden sich Diagramme.
4) Bei diesen Diagrammen handelt es sich um so genannte Charts, also graphische Abbildungen von Zahlenreihen o.ä..
5) Jeder dieser Charts liegt auf einem Sheet sozusagen als Box bzw. "embedded chart" und hat nicht ein eigenes Sheet.
6) Die verwendete Excel-Version ist 2000.
Unter diesen Vorraussetzungen funktioniert folgende Prozedur:
###################################################
Private Sub ChangeName()
Dim i As Integer, j As Integer, p_NewName As String
p_NewName = InputBox("Enter a new Title for all Charts:", "A massive renaming:")
If p_NewName = "" Then
'User pressed cancel or didn't give a name, but clicked OK
Else
For j = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(j).Activate
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Chart.ChartTitle.Text = p_NewName
Next i
Next j
End If
End Sub
###################################################
Man öffne im aktiven Workbook den Visual Basic Editor (Alt+F11), suche im Object Explorer das erste Sheet dieses Workbooks und kopiere obige Prozedur hinein. Man plaziere den Mouse Cursor in die Titelzeile dieser Prozuedur und drücke auf Play. Eine Box wird sich öffnen und nach dem neuen Namen fragen.
Lass mich bitte wissen, ob diese Vorgehensweise deinen Vorstellungen entspricht.
HAND
Sylvia
Sovereign Sylvia
