Stellen Sie Linienstärke für alle Serien in Pivot-Chart

Question

Ich habe versucht der Suche um alle Chart-Optionen, aber ich kann nicht einen Weg zu finden, scheinen die Linienbreite der Kartenserie ein für alle Mal zu setzen. Natürlich könnte ich einen Makro jedes Mal die Serie Auswahl in dem Pivot-Diagramm geändert werden laufen, aber ich hoffe, es ist ein einfacher Weg, ...

Answer 1

Hier ist der Strom (langsam, hacky) Lösung - A "CustomChart" Klassenmodul:

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

und dieser Ausschnitt am oberen Rand einer beliebigen Modul:

Dim myChart As New customChart

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