嗨，我太懂你这种崩溃的感受了——500个图表每次改完数据就乱掉格式，手动一个个调整根本不现实！别担心，咱们用VBA精准搞定这个问题，只修改你指定的簇状柱形图和折线图颜色，绝对不碰其他类型的图表。

先说说你之前代码的问题：ActiveSheet.ChartObjects.ChartType("xlColumnClustered")这种写法不对，因为ChartObjects是图表对象的集合，你得逐个遍历每个图表，判断它的类型之后再处理，不能直接对集合用ChartType属性。

下面是我给你写的完整解决方案，注释里都标清楚了每一步的作用：

Sub ResetChartColors()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim chartSeries As Series
    
    ' 直接指定目标工作表，比Activate更可靠，避免切换工作表出错
    Set ws = ThisWorkbook.Worksheets("portfolio_charts")
    
    ' 遍历工作表里的每一个图表对象
    For Each chartObj In ws.ChartObjects
        With chartObj.Chart
            ' 判断是否是簇状柱形图（xlColumnClustered）
            If .ChartType = xlColumnClustered Then
                ' 遍历图表里的所有数据系列（确保每个柱子都改到）
                For Each chartSeries In .SeriesCollection
                    ' 设置柱子填充色为绿色（这里用的是Excel标准绿色的RGB值，你可以按需调整）
                    chartSeries.Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
                    ' 可选：给柱子加同色边框，避免边缘颜色不一致
                    chartSeries.Format.Line.ForeColor.RGB = RGB(0, 176, 80)
                Next chartSeries
            ' 判断是否是折线图（如果还有带标记的折线图，可以加Or .ChartType = xlLineMarkers）
            ElseIf .ChartType = xlLine Then
                For Each chartSeries In .SeriesCollection
                    ' 设置折线颜色为绿色
                    chartSeries.Format.Line.ForeColor.RGB = RGB(0, 176, 80)
                    ' 可选：如果折线有数据标记，同步修改标记的前景和背景色
                    chartSeries.MarkerForegroundColor = RGB(0, 176, 80)
                    chartSeries.MarkerBackgroundColor = RGB(0, 176, 80)
                Next chartSeries
            End If
        End With
    Next chartObj
    
    ' 完成后弹出提示框，确认操作完成
    MsgBox "图表颜色重置搞定啦！", vbInformation
End Sub

几点实用建议： #

• 自定义颜色：如果Excel标准绿色不是你要的，你可以用取色器获取目标颜色的RGB值，替换代码里的RGB(0,176,80)就行。
• 扩展图表类型：如果你还有其他需要处理的折线类型（比如带标记的折线xlLineMarkers），可以把判断条件改成ElseIf .ChartType = xlLine Or .ChartType = xlLineMarkers。
• 快速调用：可以把这个宏添加到Excel的快速访问工具栏里，下次格式乱了，点一下按钮就能自动重置，不用每次打开VBA编辑器。
• 避免格式丢失的小技巧：平时修改数据后，尽量不要直接复制粘贴整列数据到图表数据源区域，可以只修改数据源单元格的值，能减少格式丢失的概率。

备注：内容来源于stack exchange，提问作者BHF