Hallo zusammen,
ich habe ein Problem mit der Formatierung bzw Änderung meiner Diagrammüberschriften.
Ich habe eine Datei mit ungefähr 40 Diagrammen. Bei diesen Diagrammen muss ich jeden Monat in der Diagrammüberschrift den Monatsnamen ändern. Leider ist die erste Zeile, immer unterschiedlich lang, in Schriftgröße 18 geschrieben. Die zweite Zeile, immer 63 Zeichen lang, ist in Schriftgröße 8 geschrieben. Wenn ich mit folgendem Makro:
Sub Rename()
Dim Blatt As Object, Diag As Object
Dim txt As Long
For Each Diag In Charts
txt = Diag.ChartTitle.Text
Diag.ChartTitle.Text = Replace(txt, „April“, „Mai“)
Next
End Sub
die Datei bearbeite, dann wird der Monatsname geändert, aber leider auch die Formatierung. Die Zeile in Schriftgröße 8 wird dann auch in Schriftgröße 18 dargestellt. Ich habe schon versucht, die zweite Zeile in eine Variable zu legen und dann zu formatieren, aber das klappt leider nicht.
Könnt Ihr mir helfen? Ich wäre euch sehr dankbar.
Vielen Dank. LG Martina