ピボットグラフのすべての系列の線の太さを設定する

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