如何在图表组中的所有图表中设置字体格式

Question

我试图确保工作表上图表中的所有字体都相同，并且所有标题字体都相同。我有不同类型的图表，所以我在图表组中有图表。

我了解到您必须激活每个图表才能对其进行格式化。我想我必须使用 ChartObject。

Sub Macro2()

Dim cover As Worksheet
Dim groupIndex As Long
Dim seriesIndex As Long
Dim cht As ChartObject
Set cover = Sheets("Sheet1")

cover.Activate

For Each cht In cover.Shapes.Range(Array("Group1")).GroupItems
cht.Activate
    ChartArea.ChartTitle.Font.Size = 12
          With ActiveChart.ChartArea.Font
              BaselineOffset = 0
              Bold = msoFalse
              FontColor = vbRed
              FontSize = 10
          End With
Next
End Sub

我发现 For 语句的类型不匹配。

Answer 1

ChartObject的Chart属性就是你所需要的

试试这个：

Sub Macro2()

    Dim cover As Worksheet
    Dim groupIndex As Long
    Dim seriesIndex As Long
    Dim cht '<< as variant
    Set cover = Sheets("Sheet1")

    For Each cht In cover.Shapes.Range(Array("Group1")).GroupItems
        With cht.Chart
            .ChartTitle.Font.Size = 12
            With .ChartArea.Font
                '.BaselineOffset = 0 'this doesn't work for me
                .Bold = msoFalse
                .Color = vbRed
                .Size = 10
            End With
        End With
    Next

End Sub

如何在图表组中的所有图表中设置字体格式

How to format font in all charts in chart group

format

excel

charts

fonts

vba