更改 Excel 图表中的数据系列线宽（一次多个）

Question

有没有办法在 Excel 折线图上一次编辑所有线的权重？

我有一个图表，上面有大约 50 个数据系列，要遍历所有这些数据并单独更改权重太多了，而且如果线条更细，则很难看到数据，这会更容易一些）。我看不到多选它们的方法，这看起来有点糟糕。

编辑：我最终让它使用以下代码（在学习了一些 VB 之后）。不过，我似乎对图表的可读性没有多大帮助！克里斯帮我解决了这个问题，所以我会给他打勾。

Sub onepxlines()
        With Selection
            MsgBox ("Selection: " & TypeName(Selection))
            If TypeName(Selection) = "ChartArea" Then
                Dim area As ChartArea
                Set area = Selection

                MsgBox ("Area parent: " & TypeName(area.Parent))

                If TypeName(area.Parent) = "Chart" Then
                    Dim chart As chart
                    Set chart = area.Parent
                    Dim srs As Series

                    For Each srs In chart.SeriesCollection
                        srs.Format.Line.Weight = 1.5
                    Next
                End If
            End If
        End With
End Sub

Answer 1

编写快速宏可能最容易，例如

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection
        srs.Format.Line.Weight = 0.75
    Next
End Sub

Answer 2

这是 Chris 答案的更兼容复制和粘贴的版本：

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveChart.SeriesCollection
        srs.Format.Line.Weight = 0.25
    Next
End Sub

只需选择图表并运行宏。