So ändern Sie alle Schriften im Diagramm?

Ich 'm versuchen, die schriftart zu ändern in das gesamte Diagramm. Aufgezeichnete Makros verwenden von Shapes-Auflistung > Shape-Objekt > TextFrame2 (enthält text, der die Formatierung für die angegebene Form) > TextRange - > Schriftart.

With ActiveSheet.Shapes("Chart 1502").TextFrame2.TextRange.Font
  .NameComplexScript = "Arial"
  .NameFarEast = "Arial"
  .Name = "Arial"
End With

Ich habe es in der Dokumentation, und es scheint wie ein guter Weg, aber wenn ich versuche, führen diese aufgezeichneten macto, es wirft :
Run-time error: '-2147024809 (80070057)': Eingegebene Wert liegt außerhalb des Bereichs (meine übersetzung - ich habe lokalisierte version).

Fehler auf dieser Linie (vor allem mit TextFrame2)

With ActiveSheet.Shapes("Chart 1502").TextFrame2.TextRange.Font

Weil

set x = ActiveSheet.Shapes("Chart 1502")' is OK

Aber

set x = ActiveSheet.Shapes("Chart 1502").TextFrame2 'throws Run-Time Error

InformationsquelleAutor Lluser | 2014-03-15

  1. 1

    Versuchen, diese:

    Sub test()
    Dim x As Shape
    Set x = ActiveSheet.Shapes("Chart 1502")

    With x.Chart.ChartArea.Format.TextFrame2.TextRange.Font
        .NameComplexScript = "Arial"
        .NameFarEast = "Arial"
        .Name = "Arial"
    End With
End Sub

    Außerdem schlage ich vor zu ändern ActiveSheet.Shapes("Chart 1502") etwas wie dies: Worksheets("Sheet1").Shapes("Chart 1502").

    Es funktioniert! Danke! (Interessant - Dokumentation sagt nichts über das Diagramm in der Shapes-Auflistung).

    InformationsquelleAutor Dmitry Pavliv

Schreibe einen Kommentar