複数レーダーチャートの線の色をセルの塗りつぶしの色に変えたい

Question

こんにちは。
いつも大変お世話になっております。

以下のリンクのように、各項目のセルの色をレーダーチャートの線の色に反映させたいのですが、うまくいきません。
https://3daysam.com/post-1108/

線の色のところの記述が違うのかなと思っているのですが、なかなか似た例を見かけず困っています。
何卒宜しくお願い致します。

Sub グラフ色縦()

Dim i As Long
Dim Ro As Long
Dim Co As Long

Ro = Selection.Row
Co = Selection.Column

With ActiveSheet
For i = 1 To .ChartObjects.Count
.ChartObjects(i).Chart.SeriesCollection (i)
.Border.Color = Cells(Ro + i - 1, Co).Interior.Color '線の色
.Format.line.Weight = 0.25 '線の太さ
.Format.line.DashStyle = msoLineSolid '線の種類

Next i
End With

End Sub

Answer 1

とりあえずWithの付け忘れを修正してみました。

Sub グラフ色縦()
    
    Dim i As Long
    Dim Ro As Long
    Dim Co As Long
    
    Ro = Selection.Row
    Co = Selection.Column
    
    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            With .ChartObjects(i).Chart.SeriesCollection(i)
                .Border.Color = Cells(Ro + i - 1, Co).Interior.Color  '線の色
                .Format.line.Weight = 0.25                           '線の太さ
                .Format.line.DashStyle = msoLineSolid            '線の種類
            End With
        Next i
    End With

End Sub

Comments

[momoko_HOP]

jinojiさま
いつもありがとうございます！おお…なんとか動きました！
なんとなくグラフオブジェクトの階層がわかってきたような気がします。