質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

2回答

3250閲覧

[ExcelVBA] 凡例の色を一つずつ変えるマクロ

orange_flower

総合スコア6

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

1クリップ

投稿2022/01/24 16:12

グラフ凡例の文字をひとつひとつ違う色に変えるマクロを作ろうとしています。
シート上に凡例つきのグラフができていて、それについて変更を加える感じです。

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点、よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

本当は、追記修正依頼に書きたかったのですが、画像の添付ができなかったので、回答に書かせていただきました。

1ではEnd Withが一つ足りないですが、これはコピペミスですよね?(回答の方の記述では直っているので…)
あと、コードの記述がはみ出ていますね…

1の方法、回答の方法、いずれも試してみましたが自分の環境では、すべての凡例の色が変更されました。
例えば、ここに書かれていない箇所で凡例の上書きをしてしまっているとか、参照元が間違っているとか…?
あとは、そもそも結果について認識の齟齬があるかもしれませんので、

  • 現在のグラフと参照元のスクショ
  • 想定している結果のグラフと参照元のスクショ

の2点があると話がスムーズになるかもしれないです(凡例は手作業で色を変えられるので、お手間ですが…)

参考として、自分の環境での挙動とコードです。
コードは色の参照元となるセルの列だけ変えていますが、他は全く同じです。
この凡例のイメージで間違いなければ、お手元のコードでも正しく動くと思うのですが…

イメージ説明

Sub colorChange() Dim j As Long Dim color As Long With ActiveSheet.ChartObjects(1).Chart For j = 1 To .SeriesCollection.Count color = Cells(j + 1, 6).Interior.color .Legend.LegendEntries(j).Select With Selection.Format.TextFrame2.TextRange.Font.Fill .ForeColor.RGB = color End With Next j End With End Sub

投稿2022/01/27 03:19

Oaroana

総合スコア57

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

orange_flower

2022/01/31 09:11

Oaroana様、ありがとうございます。 私がマクロを試していたグラフの設定がおかしくて 凡例に項目名が出てしまっていました。そのため1つ目しか変わらなかったようです。 グラフを新しく作り直したところ、いただいたマクロで凡例全部の色を変更することができました。 ありがとうございました。
guest

0

すみません、2つ目は自己解決しました。
以下のように色を変数にしておくとエラーが出ませんでした。

1つ目についてはまだ解決していないので、引き続きよろしくお願いします。

Dim j as long
Dim color as long

With ActiveSheet.ChartObjects(1).Chart
For j = 1 To .SeriesCollection.Count
color = Cells(j + 1, 3).Interior.Color
.Legend.LegendEntries(j).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.ForeColor.RGB = color
End With
Next j
End With

投稿2022/01/25 03:05

orange_flower

総合スコア6

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問