遍历工作表的所有图表（不要使用Activate或Select）。检查图表类型以决定是否要执行以下操作：

Sub ChangeAllBarChars()
    Dim co As ChartObject
    For Each co In ThisWorkbook.Sheets("portfolio_charts").ChartObjects
        If co.Chart.ChartType = xlColumnClustered Then
            SetChartColor co.Chart
        End If
    Next
End Sub

字符串
不，你可以对该图表的数据序列施展魔法。下面的代码将所有条形图设置为绿色，可能不是你想要的-由你决定。颜色RGB(0, 192, 0)是绿色，请决定你想要的确切颜色。
如果您设置ForeColor.RGB，即使Excel文件的配色方案更改，颜色也不会更改。如果您使用ForeColor.ObjectThemeColor和ForeColor.TintAndShade，则颜色将在配色方案更改时更改。

Sub SetChartColor(ch As Chart)
    Dim ser As Series
    For Each ser In ch.FullSeriesCollection
        ser.Format.Fill.ForeColor.RGB = RGB(0, 192, 0)

        ' Use the following when you want to stick to the scheme
        ' ser.Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent6
        ' ser.Format.Fill.ForeColor.TintAndShade = 0.4

    Next
End Sub

型

你没有回答我的澄清问题，所以我将展示一种为ChartArea和PlotArea着色的方法：

Sub ColorChartsChartArea()
  Dim sh As Worksheet, ch As ChartObject
  
  Set sh = ThisWorkbook.Sheets("portfolio_charts")
  For Each ch In sh.ChartObjects
        If ch.Chart.ChartType = xlColumnStacked Then
            ch.Chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End If
  Next ch
End Sub

字符串