エクセルのグラフで、項目の色を定義付するマクロの件です。 何度か、この質問で皆さまにお手数おかけしている状態です。 私の説明が悪いせいもあり、再度質問をすることにしました。

画像

Visual Basic | Excel105閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

皆さま、お忙しいところご協力ありがとうございました。 本当に助かりました。 hosさんの回答で問題なく動きました。 ありがとうございました。

お礼日時:8/1 11:31

その他の回答(1件)

1

説明を読んでも何をしたいのか今一つ理解できないのですが、 とりあえずグラフ作成のコードです。 ここからどうするのか?色は乱数で付けているので適当です。 Sub test() Dim w As Single, h As Single, t As Single, arL(1) As Single Dim i As Long, j As Long w = 400: h = 230: t = Cells(11, 1).Top arL(0) = Cells(11, 1).Left: arL(1) = arL(0) + 420 For j = 0 To 1 With ActiveSheet.Shapes.AddChart(xl3DPie, arL(j), t, w, h).Chart .SetSourceData Source:=Cells(1, 5 * j + 1).Resize(9, 2) .ChartTitle.Delete .Legend.Position = xlBottom With .SeriesCollection(1) For i = 1 To .Points.Count .Points(i).Interior.Color = Cells(i + 1, 5 * j + 1).Interior.Color Next End With End With Next End Sub

画像

1人がナイス!しています

ご回答ありがとうございます。 大変お手数おかけします。 やはり文章での質問では無理があるのかも知れませんが、マクロ実行と同時にグラフが出来上がってしまうと、その後、他のグラフから書式をコピーすると、色が変わってしまうので、 https://excel-ubara.com/excelvba5/EXCELVBA218.html のように、 グラフを普通に作成→グラフを選択→マクロを実行→指定した色に変わる。 という作業を2回繰り返して、2つのグラフを作りたいという意味なんです・・