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