【Excel】折れ線グラフの色を選択したセルの背景色で一括指定するVBA

Sub グラフ色縦()

 Dim i As Long
 Dim j As Long
 Dim s As Long
 Dim Ro As Long
 Dim Co As Long
 Dim グラフ As ChartObject


Application.ScreenUpdating = False
For Each グラフ In ActiveSheet.ChartObjects

Ro = Selection.Row
Co = Selection.Column

j = グラフ.Chart.SeriesCollection.Count


  For i = 1 To j
      
       With グラフ.Chart.SeriesCollection(i)
        .Border.Color = Cells(Ro + i - 1, Co).Interior.Color  '線の色
        .Format.Line.Weight = 0.25                           '線の太さ
        .Format.Line.DashStyle = msoLineSolid            '線の種類
        .MarkerStyle = xlAutomatic                           'マークの種類
        .MarkerBackgroundColor = Cells(Ro + i - 1, Co).Interior.Color  'マークの色
        .MarkerForegroundColor = Cells(Ro + i - 1, Co).Interior.Color  'マークの枠線
        
       End With
      
   Next i 
   Next グラフ
 
Application.ScreenUpdating = True
   
   
End Sub