Question

我需要一个小小的提示。我的结果正在图表中绘制。我希望图表上点的宽度更小。

目前我正在使用此代码，它可以工作，但我不想使用select属性，因为最后一个点总是被选中。有人可以提出替代方案吗？

Dim Dots As Long

For Dots = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(Dots).Select
    With Selection.Format.Line
    .Visible = msoTrue
    .Weight = 0.8
    End With
Next Dots

Answer 1

Dim i As Long

For Dots = 1 To ActiveChart.SeriesCollection(1).Points.Count
    With ActiveChart.SeriesCollection(1).Points(i).Format.Line
        .Visible = msoTrue
        .Weight = 0.8
    End With
Next

以上内容基于您的代码并避免了选择。

这是一种更直接的方式：

Dim oDot As Object

For Each oDot In ActiveChart.SeriesCollection(1).Points
    With oDot.Format.Line
        .Visible = msoTrue
        .Weight = 0.8
    End With
Next

VBA绘图图并调整点宽

1 个答案: