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

Sub ChangeCharts()
    Dim myChart As ChartObject
    For Each myChart In ActiveSheet.ChartObjects
        myChart.Chart.ApplyChartTemplate ( _
"C:\Users\user\AppData\Roaming\Microsoft\Templates\Charts\exemple.crtx")
    Next myChart
End Sub

Это код. Я был бы признателен, если бы кто-то мог помочь мне с этим изменением, я попробовал себя, но я не мог заставить это работать.

1 ответ1

1

Я хотел бы изменить это, чтобы повлиять на всю книгу

Переберите листы рабочей книги, перебирая все диаграммы рабочих листов.

Sub ChangeChartsInWorkbook()
    Dim OneSheet As WorkSheet
    Dim OneChart As ChartObject
    For Each OneSheet In ThisWorkbook.Sheets ' or in a certain book
        For Each OneChart In OneSheet.ChartObjects
            OneChart.Chart.ApplyChartTemplate ("C:\Users\user\AppData\Roaming\Microsoft\Templates\Charts\exemple.crtx")
        Next OneChart 
    Next OneSheet
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .