Excel 2021中VBA修改Chart.Series.Format.Line.Weight失效问题求助

我在Excel 2021中用图表工作表的折线图模拟桑基图（为了直接访问图表事件），图表包含36条系列线。通过VBA读取工作表单元格值，利用Series.Format.Line.Weight属性修改每条线的线宽，代码逻辑本身无问题，但循环修改时线宽变更无法稳定生效，有时能改成功有时不行，找不到明确的生效条件。试过修改后执行myChart.Refresh、切换工作表取消选中图表、修改图表可见性等方法，都没有明显效果。

原部分代码：

for i = 1 to 36
      myChart.Format.Line.Weight = theLineWeight(i)
' theLineWeight(i) reads the i.th value from a range containing the values for the weights
next i

解决方案 #

核心问题修正：指定具体系列对象 #

原代码中myChart.Format.Line.Weight操作的是整个图表的格式，而非单个系列的线条属性。正确的做法是明确引用每个系列：

For i = 1 To 36
    myChart.SeriesCollection(i).Format.Line.Weight = theLineWeight(i)
Next i

附加稳定性优化 #

1. 添加DoEvents强制消息处理：Excel对象模型有时会滞后处理属性变更，在循环中加入DoEvents可以让系统及时响应修改：

For i = 1 To 36
    myChart.SeriesCollection(i).Format.Line.Weight = theLineWeight(i)
    DoEvents
Next i

2. 避免图表选中状态干扰：修改前先激活数据工作表，避免图表处于选中状态导致属性修改失效：

Sheets("你的数据工作表名称").Activate ' 替换为实际数据工作表名
For i = 1 To 36
    myChart.SeriesCollection(i).Format.Line.Weight = theLineWeight(i)
    DoEvents
Next i
myChart.Activate ' 可选：修改完成后切回图表工作表

3. 使用With块优化对象引用：减少重复调用对象模型，提升代码稳定性：

Dim currSeries As Series
Sheets("你的数据工作表名称").Activate
For i = 1 To 36
    Set currSeries = myChart.SeriesCollection(i)
    With currSeries.Format.Line
        .Weight = theLineWeight(i)
    End With
    DoEvents
Next i

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