excel - 为数据透视图中的所有系列设置线宽

Question

我已经尝试查看所有图表选项，但我似乎无法找到一种方法来一劳永逸地设置图表系列的线宽。当然，每次更改数据透视图中的系列选择时，我都可以运行一个宏，但我希望有一种更简单的方法......

Answer 1

这是当前的（缓慢，hacky）解决方案 - “CustomChart”类模块：

Option Explicit

Public WithEvents customChart As Chart

Private Sub customChart_Calculate()
    Dim customSeries As series
    Application.ScreenUpdating = False

    For Each customSeries In customChart.SeriesCollection
        customSeries.Border.Weight = xlThick
    Next

    Application.ScreenUpdating = True
End Sub

这个片段在任何模块的顶部：

Dim myChart As New customChart

Sub Auto_Open()
    Set myChart.customChart = Charts(1)
End Sub