VBA图表线条透明度设置异常：仅首个数据系列生效

问题分析 #

你的代码仅能修改第一个数据系列的线条透明度，核心原因是部分图表类型（如柱状图、条形图）中，srs.Format.Line并非所有系列线条的通用访问方式——这类图表默认以填充样式呈现，线条属性实际归属到系列的Border对象，而非Format.Line。

修正后的代码 #

Sub SetLineTransparency()
    Dim cht As Chart
    Dim srs As Series
    
    ' 确认存在激活的图表
    Set cht = ActiveChart
    If cht Is Nothing Then
        MsgBox "请先激活目标图表！"
        Exit Sub
    End If
    
    ' 遍历所有数据系列
    For Each srs In cht.SeriesCollection
        ' 启用线条可见性并设置透明度
        With srs.Border
            .Visible = True
            .Transparency = 0.75
        End With
    Next srs
End Sub

额外说明 #

• 如果你的图表是折线图、散点图这类以线条为核心的类型，原代码失效可能是因为部分系列的线条默认未启用，修正后的代码同样适用，因为它强制开启了线条可见性。
• 加入cht Is Nothing的判断，避免因未激活图表导致的运行错误。

内容的提问来源于stack exchange，提问作者Cy Bu