Using VBA to format Charts and Chart Objects

using Jon's Peltier method found here
http://peltiertech.com/apply-chart-f...-other-charts/

where you select a "master" sheet then run to copy format from then apply to every other chart

with the amendment he notes for excel version 2007+ fix

It turns out that

.Paste Type:=xlFormats
does not work properly in Excel 2007 onwards. No error appears, but whatever Type is specified, the paste occurs as if you used xlPasteAll.

The code that works is totally not obvious. Replace the above line with

.Chart.ChartArea.Select
ActiveSheet.PasteSpecial Format:=2
I’d like to talk with the genius who decided PasteSpecial on the ActiveSheet should affect an embedded chart.

Sub Copy_Chart_Formats()

    Dim Sht As Worksheet
    Dim Cht As ChartObject
    Dim Cht2 As Chart
    
    Application.ScreenUpdating = False

    ActiveChart.ChartArea.Copy

    For Each Sht In ActiveWorkbook.Worksheets 'look sheets in workbook
        For Each Cht In Sht.ChartObjects 'look charts in worksheet
            Cht.Chart.ChartArea.Select
            ActiveSheet.PasteSpecial Format:=2
        Next Cht
    Next Sht

    For Each Cht2 In ActiveWorkbook.Charts 'loop for each chart in activeworkbook
            Cht2.ChartArea.Select
            ActiveSheet.PasteSpecial Format:=2
    Next
    
    Application.ScreenUpdating = True

End Sub

i went with the simple one instead of the bigger one...you can endeavor to try the big version....Copy_Chart_Formats_Not_Titles