如何通过Excel VBA为无填充的图表标记填充颜色？

你的代码无法正常运行，核心问题有两个：

1. 错误的无填充判断逻辑：你用Point.Format.Fill.Visible判断标记是否无填充，但这个属性针对的是数据点的形状填充（比如气泡图的气泡填充），而非折线/散点图里的标记填充状态。正确的判断应该检查标记的背景色索引是否为xlColorIndexNone（代表无填充）。
2. 不必要的图表激活：oChart.Activate会触发界面刷新，既降低效率还可能引发意外问题，直接通过oChart.Chart访问图表对象即可。

另外代码里定义的pt变量未使用，属于冗余代码，可删除。

修正后的VBA代码 #

Sub fillNoFillMarkers()
    Dim oChart As ChartObject
    Dim pointIndex As Long
    Dim srs As Series
    
    '遍历工作表中所有图表对象
    For Each oChart In ActiveSheet.ChartObjects
        '遍历当前图表的所有系列
        For Each srs In oChart.Chart.SeriesCollection
            '遍历系列中的每个数据点
            For pointIndex = 1 To srs.Points.Count
                '判断标记是否为无填充状态
                If srs.Points(pointIndex).MarkerBackgroundColorIndex = xlColorIndexNone Then
                    '设置标记背景填充色
                    srs.Points(pointIndex).MarkerBackgroundColor = RGB(0, 100, 0)
                    '设置标记边框颜色
                    srs.Points(pointIndex).MarkerForegroundColor = RGB(100, 0, 0)
                End If
            Next pointIndex
        Next srs
    Next oChart
End Sub

额外优化说明 #

如果你的图表中存在无标记的系列（比如折线图默认未开启标记），可以在遍历数据点前先判断系列是否有标记，避免无意义的循环：

For Each srs In oChart.Chart.SeriesCollection
    '先判断系列是否启用了标记
    If srs.MarkerStyle <> xlMarkerStyleNone Then
        For pointIndex = 1 To srs.Points.Count
            '...原判断和设置代码...
        Next pointIndex
    End If
Next srs

内容的提问来源于stack exchange，提问作者Adil Javed Chaudhary