vba - 使用 VBA 更改图表字体

Question

如何使用 VBA 更改 Excel 图表的字体？

如果我手动选择图表，并在手动更改字体名称和大小时录制宏，则会得到下面的宏。但是，当我立即重播宏时，它会抛出运行时错误:“指定的值超出范围。”所以看起来宏记录器有一个错误。这意味着我自己无法找出更改字体的代码。

Sub Macro6()
'
' Macro6 Macro
'

'
    With ActiveSheet.Shapes("Chart 1").TextFrame2.TextRange.Font
        .NameComplexScript = "Verdana"
        .NameFarEast = "Verdana"
        .Name = "Verdana"
    End With
    ActiveSheet.Shapes("Chart 1").TextFrame2.TextRange.Font.Size = 14
End Sub

我知道，作为一种替代方案，我可以一次更改每个元素的字体(标题、轴标题、轴...)，但这很乏味，并且可能会忘记某些元素(系列)点标签、趋势线方程……)。

我希望更改图表的“默认”字体，以便其所有元素都具有该字体。

Answer 1

确实是一个奇怪的错误...做了同样的事情，但我进入了对象浏览器 (F2)，目的是使用图表而不是形状。

经过一番尝试，我成功了:

With ActiveSheet.ChartObjects("Graph").Chart.ChartArea.Format.TextFrame2.TextRange.Font
    .Name = "Verdana"
    .Size = 14
End With

这非常简单，我尝试了更奇怪的事情(因为TextRange2类中有一个.Count属性)

它工作得很好，确实改变了整个图表的字体，
您只需知道图表的名称。

或者，确保选择图表，并使用 ActiveChart 而不是 ActiveSheet.ChartObjects("Graph").Chart。