VBA Long Program....How Can I make this shorter

[ianb]

Hi, I would like to shorten my program as I am doing this for over 100 charts...


IS there a way to do this for multi charts on multi worksheets.


Sheets("???????????Select

Range("A6").Select


ActiveSheet.ChartObjects("1").Activate

ActiveChart.ClearToMatchStyle

ActiveChart.ChartStyle = 18

ActiveChart.ClearToMatchStyle


ActiveSheet.ChartObjects("2").Activate

ActiveChart.ClearToMatchStyle

ActiveChart.ChartStyle = 18

ActiveChart.ClearToMatchStyle


ActiveSheet.ChartObjects("3").Activate

ActiveChart.ClearToMatchStyle

ActiveChart.ChartStyle = 18

ActiveChart.ClearToMatchStyle

 

[Hui]

You can use similar code to your other post:

[pre]

Sub Set_Chart_Titles()
Dim ws As Worksheet
Dim ch As ChartObject

For Each ws In Worksheets
For Each ch In ws.ChartObjects

ch.Activate
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 18
ActiveChart.ClearToMatchStyle
Next ch
Next ws

End Sub

[/pre]

 

[ianb]

Perfect again. I think I wil try this as a templete for other settings as they look similar. many thanks again . save so much time working with the experts.

 

[Hui]

I'm not near my PC but the following may/should also work:

[pre]

Sub Set_Chart_Titles()
Dim ws As Worksheet
Dim ch As ChartObject

For Each ws In Worksheets
For Each ch In ws.ChartObjects
ch.ClearToMatchStyle
ch.ChartStyle = 18
ch.ClearToMatchStyle
Next ch
Next ws

End Sub

[/pre]

 

[ianb]

perfect// any thanks....