【EXCELVBA】バブルチャート色マクロについてご教授お願いします

質問

以下、お助けいただけたら幸いです！！
バブルチャートの色を変えるマクロに悩んでおります。
具体的にコードをどうしたらいいのか　歯が立ちません。

■どんなマクロを作成したいのか？
　→既に作ってあるバブルグラフの”グラフの色を変える”マクロ
【元データ表】
Ａ列：県名、Ｂ列：Ｘ値、Ｃ列：Ｙ値、Ｄ列：バブルの大きさの値
【既にあるグラフ】
　データ系列：列
　Ｘ値：Ｂ２：Ｂ８５、Ｙ値：Ｃ２：Ｃ８５
　サイズ：Ｄ２：Ｄ８５
★今回は”８５”ですが　範囲はそれ以上それ以下のときもあります

■問題点
データ数は８０個以上。
→★エクセルの色は５６色なので５６個超えるとエラーになる
→★色番号をバブルのカウントと対応させ１から指定すると黒など原色が出てしまう。淡い色にしたい

■変えたい点：
　色番号２０番～５０番まえを繰り返し使いたい

回答No.1

Raistlin · ベストアンサー

アルゴリズムが思いつかないだけと見受けましたので、あえて説明無しのコードだけで。
(全角スペースは半角に変換ください)
Sub PntClr()
Dim l As Long
Dim NoPnt As Integer
Dim CI As Integer
　　Application.ScreenUpdating = False
　　l = 1
　　CI = 20
　　With ActiveChart.SeriesCollection(1)
　　NoPnt = .Points.Count
　　　　Do While l < NoPnt
　　　　　　If CI = 50 Then CI = 20
　　　　　　.Points(l).Interior.ColorIndex = CI
　　　　　　l = l + 1
　　　　　　CI = CI + 1
　　　　Loop
　　End With　　
　　Application.ScreenUpdating = True
End Sub

お礼

そのものです！！　できました
厚かましい質問にご丁寧な回答　本当に助かりました！！
具体的に自分が書いていたコードを書かずに申し訳ございません。

考えたのですがどうしてもわからなかったのです。

項目のラベル、判例を無くす、
など自分なりにコードを書いたのですが色となるとはたしてどう反映させたらいいのか行き詰まりました。
そうです　
構文の基は”Do While”なのだ、
という初心者ではあっても
その見当はついたのですが　どうやってやるのかがわからなかった

If CI = 50 Then CI = 20
　　　　　　.Points(l).Interior.ColorIndex = CI
　　　　　　l = l + 1
　　　　　　CI = CI + 1
ここが特に勉強になりました。
なるほどです。