マクロ講座入門編 3回テーマカラーを使った場合 のマクロの記録
動画内では、この後、不要な部分を削除し、リメイクします。

Sub Macro2()
' テーマカラー
' Macro2
'
' 
' Withステートメント,選択範囲の装飾について End With までを行う
    With Selection.Interior
 '    塗りつぶし（ 網掛けなし）
        .Pattern = xlSolid
'   パターン 色をxlautomaticにする      
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399945066682943
        .PatternTintAndShade = 0
    End With
End Sub

Sub Macro3()
' 網掛けと テーマカラー	
' Macro3 Macro
'

'
    With Selection.Interior
        .Pattern = xlLightVertical
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799951170384838
        .PatternTintAndShade = 0
    End With
End Sub