Excel VBA:更改图表数据标记大小和曲线粗细

在Excel中插入图表后，有时曲线较多，数据标记又太大，而且线条较粗，多条曲线挤压在一起，显得很丑。为了便于观察，可以通过右键更改曲线的粗细和设置数据标记的大小，但线条较多时又是一件很麻烦的事。这里通过几行VBA代码更改曲线的粗细和设置数据标记的大小：

Sub Shrink()
Worksheets("Sheet1").ChartObjects(1).Activate 'Sheet1为工作表的名字，ChartObjects(1)指本表中的第一个图表
'以下对激活图表中的每一条曲线进行选中，之后设置线的粗细为0（最细）,数据标记最小（2号，最大72）
For LineNum = 1 To ActiveChart.SeriesCollection.Count
    ActiveChart.SeriesCollection(LineNum).Select
    With Selection
        .Format.Line.Weight = 0
        .MarkerSize = 2
    End With
Next LineNum
End Sub

 

ref

https://wenku.baidu.com/view/c1b114442e3f5727a5e9628a.html

https://www.zhihu.com/question/67538056