使用循环自动调整Excel图表线重量

我正试图调整Excel图表上的线条粗细（或重量）。 我希望每行的厚度根据我已经保存在一个命名的范围“重量”

我有麻烦得到这个双循环的权利

我有VBA循环，但目前它调整每个图表serries到我的“Weights”系列中的所有值，然后循环到下一个Srs。 我希望我的每个值只能更改一次，然后select下一个重量。

当我试图强制循环到下一个“Srs”我得到“无效的下一个控制variables引用”

如何构build这个双循环来调整每条线（Srs）到我的每个权重（£w）

谢谢

Sub SetWeights() Dim Srs As Series Dim myWeight As Range Dim £w As Range Set myWeight = Range("Weights") With ActiveSheet For Each Srs In ActiveChart.SeriesCollection For Each £w In myWeight Srs.Format.Line.Weight = £w 'Debug.Print £w Next 'Srs Next '£w End With End Sub 

Answer 1

这是你正在尝试？

 Sub SetWeights() Dim Srs As Series Dim myWeight As Range Dim £w As Range Dim j As Long Set myWeight = Range("Weights") j = 1 With ActiveSheet For Each £w In myWeight If j > ActiveChart.SeriesCollection.Count Then Exit Sub ActiveChart.SeriesCollection(j).Format.Line.Weight = £w j = j + 1 Next £w End With End Sub