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

Я попытался оглядеть все параметры диаграммы, но я не могу найти способ установить ширину линии диаграммы раз и навсегда. Конечно, я могу запускать макрос каждый раз, когда выбор серии в сводной диаграмме изменяется, но я надеюсь, что есть более простой способ ...

excel,charts,pivot-table,excel-2000,

0

Ответов: 1

0 принят

Вот текущее (медленное, хакерское) решение - модуль класса «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
первенствует, диаграммы, поворотный стол, первенствует-2000,
Похожие вопросы
Яндекс.Метрика