Diagrammtitel ändern - geht nicht

Forumthread: Diagrammtitel ändern - geht nicht
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Diagrammtitel ändern - geht nicht

10.08.2005 15:19:50

Gerwas

Hallo
Ich hab hier das Problem, ein Diagrammsheet(1) enthält ein weiteres Diagramm (2). Per VBA will ich nun, wie schon tausendmal gemacht, den Titel des Diagramms(1) ändern.


Sub ttt()
mm = CDate("01.07.2005")
Sheets(1).Activate
'das ist das DiagrammBlatt welches zusätzlich ein weiteres Diagramm enthält
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartTitle.Select
Selection.Characters.Text = "Das ist der Titel " & Chr(10) & "für diesen Bereich gültig für: " & Chr (10) & Format(mm, "mm yyyy") & " kumulativ."
Selection.AutoScaleFont = False
End Sub

Jedoch erhalte ich die Fehlermeldung 1004 "Die Select-Methode des ChartTitel Objektes ist fehlerhaft". Wenn ich das Macro mit dem Recorder aufzeichne ist zwar nachher mein Titel geändert jedoch auch das aufgezeichnete Macro läuft nicht.
Was mach ich falsch?

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagrammtitel ändern - geht nicht

10.08.2005 15:59:55

Herbert

AW: Diagrammtitel ändern - geht nicht

10.08.2005 15:59:55

Herbert

probiers so:

Sub ttt()
Dim mm$
mm = CDate("01.07.2005")
With Sheets(1)
   With .ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Das ist der Titel " & Chr(10) & _
        "für diesen Bereich gültig für: " & Chr(10) & _
        Format(mm, "mm yyyy") & " kumulativ."
        .ChartTitle.AutoScaleFont = False
      End With
End With
End Sub