Установить вес линии для всех серий в сводной диаграмме

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