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

Question

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

我无法正确使用此双循环

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

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

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

由于

LocalDateTime

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