散点图标记着色故障排查：VBA配置系列标记颜色后点击宏按钮颜色自动变更的问题求助

我帮你排查了下你的VBA代码，颜色丢失、每次运行宏都变的问题，主要是代码里的重复设置覆盖和不必要的Select操作导致的，还有部分颜色设置逻辑混乱，具体问题点和修复后的代码如下：

核心问题点 #

• 重复的Fill设置块：比如系列2、3、5都写了两次With Selection.Format.Fill，后面的设置直接覆盖了前面的，导致你预设的颜色被冲掉（比如系列2原本想设Background2，结果被后面的Accent4覆盖）。
• 依赖Select/Activate操作：这种方式不仅效率低，还容易因为图表的选中状态变化导致代码执行异常，而且会干扰用户操作。
• 颜色设置逻辑混淆：部分系列同时用了MarkerForegroundColor和Format.Fill，两种设置可能冲突，导致颜色不符合预期。

修复后的代码 #

Sub FixChartMarkerColors()
    Dim cht As Chart
    ' 直接获取图表对象，避免Activate/Select
    Set cht = ActiveSheet.ChartObjects("Chart 1").Chart
    
    ' 系列1设置
    With cht.FullSeriesCollection(1)
        .MarkerStyle = 1
        .MarkerSize = 10
        .Format.Fill.Visible = msoTrue
        .Format.Fill.ForeColor.RGB = RGB(252, 213, 181)
        .Format.Fill.Solid
        .Format.Line.Visible = msoFalse
    End With
    
    ' 系列2设置（移除重复的Fill块，保留你需要的最终颜色）
    With cht.FullSeriesCollection(2)
        .MarkerStyle = 2
        .MarkerSize = 10
        .Format.Fill.Visible = msoTrue
        .Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent4
        .Format.Fill.ForeColor.TintAndShade = 0
        .Format.Fill.Solid
        .Format.Line.Visible = msoFalse
    End With
    
    ' 系列3设置（保留最终需要的红色）
    With cht.FullSeriesCollection(3)
        .MarkerStyle = 3
        .MarkerSize = 10
        .Format.Fill.Visible = msoTrue
        .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        .Format.Fill.Solid
        .Format.Line.Visible = msoFalse
    End With
    
    ' 系列4设置（统一用Marker颜色属性，更直接）
    With cht.FullSeriesCollection(4)
        .MarkerStyle = 8
        .MarkerSize = 10
        .MarkerBackgroundColor = RGB(0, 176, 80)
        .MarkerForegroundColor = RGB(0, 176, 80)
        .Format.Line.Visible = msoFalse
    End With
    
    ' 系列5设置（保留最终需要的蓝色）
    With cht.FullSeriesCollection(5)
        .MarkerStyle = 8
        .MarkerSize = 10
        .Format.Fill.Visible = msoTrue
        .Format.Fill.ForeColor.RGB = RGB(0, 176, 240)
        .Format.Fill.Solid
        .Format.Line.Visible = msoFalse
    End With
    
    ' 系列6设置
    With cht.FullSeriesCollection(6)
        .MarkerStyle = 9
        .MarkerSize = 10
        .Format.Fill.Visible = msoTrue
        .Format.Fill.ForeColor.RGB = RGB(255, 255, 0)
        .Format.Fill.Solid
        .Format.Line.Visible = msoFalse
    End With
End Sub

关键改进说明 #

1. 直接引用Chart对象：通过Set cht = ...直接获取图表，彻底摆脱Select/Activate，代码更稳定高效。
2. 移除重复设置：每个系列只保留一次颜色设置块，确保你需要的颜色不会被后续代码覆盖。
3. 统一颜色设置方式：对于散点图标记，你可以选择两种方式：
   • 使用MarkerForegroundColor和MarkerBackgroundColor（适用于非实心标记，实心标记用ForegroundColor即可）
   • 使用Format.Fill（更适合控制填充样式）
     建议同一图表里尽量只用一种方式，避免冲突。
4. 明确颜色值：如果要固定颜色，优先用RGB()而非主题色（主题色会随Excel主题变化），这样颜色不会因为主题切换而改变。

现在运行这个修复后的宏，每次点击按钮都会准确设置你需要的标记颜色，不会再出现颜色丢失或自动变更的问题了。

内容的提问来源于stack exchange，提问作者Sunil Chitre