確認してグラフの個別書式をリセットする

Option Explicit

Sub Example5033()
    Dim ws As Worksheet, co As ChartObject
    On Error GoTo Failed
    '新しい練習シートだけを作成・変更します。
    Set ws = NewSheet5033()
    If ws Is Nothing Then Exit Sub
    Set co = ws.ChartObjects.Add(ws.Range("E2").Left, ws.Range("E2").Top, 420, 250)
    co.ShapeRange.Item(1).Name = "練習グラフ"
    co.Chart.ChartType = xlColumnClustered
    co.Chart.SetSourceData Source:=ws.Range("A1:C5"), PlotBy:=xlColumns
    'ここから今回の操作です。
    With co.Chart.SeriesCollection(1).Format.Fill
        .Solid
        .ForeColor.RGB = RGB(220, 40, 40)
    End With
    co.Activate
    co.Chart.Refresh
    If MsgBox("この練習グラフの個別書式をリセットしますか？", _
        vbYesNo + vbQuestion + vbDefaultButton2) <> vbYes Then Exit Sub
    co.Chart.ClearToMatchStyle
    MsgBox "グラフの個別書式を自動書式に戻しました。"
    Exit Sub
Failed:
    MsgBox "処理を中止しました: " & Err.Description, vbExclamation
End Sub

Private Function NewSheet5033() As Worksheet
    Const SHEET_NAME As String = "VBAグラフ5033"
    Dim item As Object, ws As Worksheet
    Dim data As Variant, r As Long, c As Long
    '同名シートがあれば、上書きせずに終了します。
    For Each item In ThisWorkbook.Sheets
        If StrComp(item.Name, SHEET_NAME, vbTextCompare) = 0 Then
            MsgBox SHEET_NAME & " は既にあります。別の練習ブックで試してください。"
            Exit Function
        End If
    Next item
    Set ws = ThisWorkbook.Worksheets.Add( _
        After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = SHEET_NAME
    data = Array(Array("月", "売上", "計画"), _
                 Array("4月", 120, 100), Array("5月", 160, 140), _
                 Array("6月", 110, 150), Array("7月", 180, 170))
    For r = 0 To UBound(data)
        For c = 0 To UBound(data(r))
            ws.Cells(r + 1, c + 1).Value = data(r)(c)
        Next c
    Next r
    ws.Range("A1:C5").Columns.AutoFit
    Set NewSheet5033 = ws
End Function