更改 VBA 代码以影响工作簿而不是工作表

更改 VBA 代码以影响工作簿而不是工作表

我找到了关于如何更改整个工作表中的图表设计的代码,我想将其更改为影响整个工作簿,而不仅仅是我的活动工作表。

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

我想改变它以影响整个工作簿

迭代工作簿表,迭代所有工作表图表。

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

相关内容