在數據透視表中設置所有系列的線寬

Question

我嘗試過查看所有圖表選項，但似乎無法找到一種方法來設置圖表系列的線寬。當然，我可以每次在數據透視表中選擇一個宏時運行一個宏，但我希望有一個更簡單的方法...

Answer 1

這裏是當前（慢，哈克）解決方案 - 「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