Alterando o código do VBA para afetar a pasta de trabalho em vez da folha

Question

Eu encontrei este código sobre como alterar o design do gráfico em uma planilha inteira, e gostaria de alterá-lo para afetar a pasta de trabalho inteira em vez de apenas minha planilha ativa.

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

Este é o código. Eu apreciaria se alguém pudesse me ajudar com essa mudança, eu tentei, mas não consegui fazer funcionar.

    

Answer 1

I would like to change it to affect the whole workbook

Iterar as planilhas da pasta de trabalho, iterando todas as planilhas.

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