excel - 水平カテゴリ軸に基づいて Excel 円グラフのスライスを書式設定する

Question

水平カテゴリ軸の値に基づいて、円グラフのスライスの色をフォーマットする方法を探しています。

たとえば、次のデータ ラベル (カテゴリ軸ラベルから取得) を持つ円グラフがあります。

• りんご
• バナナ
• オレンジ
• ぶどう

各果物の合計は 100% になります。

円グラフでは、たとえばリンゴを表すスライスは常に緑色で表示されます。バナナは常に黄色などです。毎月、円グラフを更新する必要があり、毎月、リンゴ、バナナ、オレンジ、ブドウの値が変わります。ただし、スライスの色は変わりません。

私の質問は、円グラフを毎月更新し、各種類の果物に関連付けられた色を維持する方法はありますか? また、果物が追加される月もあれば、果物が省略される月もあることに注意してください。

各スライスの値に応じて変更しようとしましPoints(x)たが、シリーズの数は月ごとに変わる可能性があるため、うまくいきません。以下からわかるように、各スライスの値に応じて変更することができましたが、IFループを含めて...などPoints(x)のようなことを言うことができるかどうか疑問に思っています.IF category axis = "Apples", Selection.Format.Fill ... (fill slice with RGB(X, X, X))

Sub test()

    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 144, 44)
        .Transparency = 0
        .Solid
    End With
    ActiveChart.SeriesCollection(1).Points(3).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 30)
        .Transparency = 0
        .Solid
    End With
        ActiveChart.SeriesCollection(1).Points(6).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With
End Sub

誰かが助けてくれたら、とても感謝しています。