vba - 使用循环自动调整 Excel 图表线宽

Question

我正在尝试调整 Excel 图表上的线条粗细（或权重）。我希望根据我保存在命名范围“权重”中的权重来调整每条线的粗细

我无法正确完成这个双循环

我有 vollowing VBA 循环，但目前它将每个图表系列调整为我的“权重”系列中的所有值，然后继续循环到下一个 Srs。我希望我的 Srs 中的每个值只更改一次，然后选择下一个重量。

当我尝试将循环强制到下一个“Srs”时，我得到“无效的下一个控制变量引用”

这个双循环需要如何构建以将每条线（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