excel - 如何格式化图表组中所有图表中的字体

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

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

尝试这个：

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