1つの3Dバブルチャート(散布図)内にある、複数の球の色を選択したセルの色にしたい

Question

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

前回「複数のレーダーチャートの線の色を、選択した塗りつぶされた色のセルにする方法」を質問(以下の文)したのですが、「1つの3Dバブルチャート(散布図)内にある複数の球の色」に対しても同じようにしたいと思っています。
なかなかバブルチャートの実例がないためご教示いただけると喜びます。(球の指定がよくわかっておりません…)

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

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim i, j
    Dim c As Range
    Set c = ActiveCell
    
    With c.Worksheet
        For i = 1 To .ChartObjects.Count
            With .ChartObjects(i).Chart.SeriesCollection
                For j = 1 To .Count
                    .Item(j).Border.Color = c.Offset(j - 1).Interior.Color
                Next
            End With
        Next
    End With
End Sub

Comments

[momoko_HOP]

早速ありがとうございます！
ほぼほぼ解決しているのですが、球の枠線(.Border.Color)ではなくて球を塗りつぶしたいのです。この指定の仕方がよくわかっていません…。

[jinoji]

.Item(j).Format.Fill.ForeColor.RGB = c.Offset(j - 1).Interior.Color とかかな。

この手のことは「マクロの記録」機能を使ってやりたいことを手で実行すれば
何となくわかってきますよ。

[momoko_HOP]

おお！
ありがとうございます!!!
マクロの記録でもやってみたのですがRGBって発想がRGBの配色指定のみだと思っていました。