ChartTitle.Font.Size
20.11.2007 14:55:00
Michael
ich hab mal wieder eines dieser - zumindest für mich -komischen Probleme.
Ich kopiere ein vorformatiertes Diagramm n-fach und möchte anschliessend in einem Schleifendurchlauf über n diverse Änderungen je Diagramm vornehmen, unter anderem:
xxx.ChartObjects(n).Activate
ActiveChart.ChartTitle.Text = "Dies ist der neue Titel"
ActiveChart.ChartTitle.Font.Size = 10
ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 8
ActiveChart.Legend.Font.Size = 8
Bei den meisten Diagrammen klappt das, aber bei einigen kommt bei
ActiveChart.ChartTitle.Font.Size = 10
oder
ActiveChart.Axes(xlCategory).TickLabels.Font.Size = 8
oder
ActiveChart.Legend.Font.Size = 8
die Fehlermeldung "Laufzeitfehler '1004': Die Size-Eigenschaft des Font-Objektes kann nicht festgelegt werden".
Baut man davor z.B. MsgBox ActiveChart.ChartTitle.Font.Size ein, erhält man aber ein Ergebnis. Was mache ich falsch? Ich kann auch die Systematik des Auftretens des Fehlers nicht erkennen.
Vielleicht noch etwas zum Hintergrund:
Das Kopieren des vorformatierten Diagramms sollte eigentlich die Einzeländerungen später ersparen. Das klappt auch bei hunderten von Diagrammen, aber bei einigen waren die Schriftgrößen von Titel, x-Achse und Legende verändert!? Deshalb will ich diese Schriftgrößen ausdrücklich erzwingen.
Bin für Eure Hilfge sehr dankbar, viele Grüße
Michael