グラフ凡例の文字をひとつひとつ違う色に変えるマクロを作ろうとしています。
シート上に凡例つきのグラフができていて、それについて変更を加える感じです。
1.書いたマクロが以下のとおりなのですが、これだと凡例の1つ目しか色が変わりません。
すべて色が変わるようにするにはどうすればいいでしょうか?
With ActiveSheet.ChartObjects(1).Chart For j = 1 To .SeriesCollection.Count .Legend.LegendEntries(j).Select With Selection.Format.TextFrame2.TextRange.Font.Fill .ForeColor.RGB = RGB(255,0,0)
End With
Next j
2.また、色を決めるところは
本当は、C列の2行目以降のセルの色をとってくるか、
もしくはC列の2行目以降のセルの値をカラーインデックスとして使いたいのですが
上記の .ForeColor.RGB = RGB(255,0,0) この部分を、以下のように入れ替えると
1つめは実行時エラー13「型が一致しません」、
2つ目は実行時エラー438「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と
出てきてしまいます。これを対処する方法はあるでしょうか?
.ForeColor = Cells(j + 1, 3).Interior.Color .ForeColorIndex = Cells(j + 1, 3)
以上2点、よろしくお願いいたします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/01/31 09:11