excelVBA:グラフのデータ範囲

質問

With ActiveSheet.ChartObjects.Add(300, 300, 480, 300)
.Chart.SetSourceData Range(Range(Cells(3, 2), Cells(11, 2)), Range(Cells(3, 4), Cells(11, 5))), xlColumns
.Chart.ChartType = xlBarStacked100 '100%横棒グラフ

３列目を選択範囲から外す意図で、上記のようなコードを書いたのですが、このやり方ですと、３列目も選択されて、グラフ化されてしまいました。上記のコードをどのように修正すればよいか教えていただけないでしょうか？

ローデータは、下記のようなものです。上記コードの３列目が下記データのN数の列にあたります。
　　　　　　　N 男性 女性
segment1 N1 ○1 △1
segment2 N2 ○2 △2
segment3 N3 ○3 △3
segment4 N4 ○4 △4
segment5 N5 ○5 △5
segment6 N6 ○6 △6
segment7 N7 ○7 △7
segment8 N8 ○8 △8

ローデータ範囲をすべて選択し、グラフ化した後、「N数の列を削除」のような操作をすれば実質的にはOKなのですが、系列の色がずれてしまうため、今回このやり方はできなそうです。
どうかよろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

データ実例をもっと判りやすく書くこと。
質問の例は判りにくく、実際に試行に使えないじゃ無いか。
模擬例
Ｓｈｅｅｔ１　Ｃ３：Ｅ１１
Ｂ列　　　Ｃ列　　Ｄ列　　Ｅ列
a 1 12 23
b 3 34 34
c 12 53 52
d 4 24 61
e 5 13 24
f 6 34 52
g 7 54 14
h 9 41 27
（こういう書き方で判りやすいだろう）
これで質問のコードを
Sub test01()
'excelVBA: グラフのデータ範囲
ActiveSheet.Columns(3).Visible = False
With ActiveSheet.ChartObjects.Add(300, 300, 480, 300)
.Chart.SetSourceData Range(Range(Cells(3, 2), Cells(11, 2)), Range(Cells(3, 4), Cells(11, 5))), xlColumns
.Chart.ChartType = xlBarStacked100 '100%横棒グラフ
End With
End Sub
とするとＢ，Ｃ，Ｄ、Ｅ列のグラフになる。
ーーー
そのコードの最初に
Columns("C:C").EntireColumn.Hidden = True
を入れて実行すると
Ｂ，Ｄ、Ｅのグラフになるだろう。
非表示の見えないデータはグラフから除かれる原則。
このやり方は質問者の意図と違うかもしれないが、１つのやり方ではあろう。

お礼

お返事がおそくなり申し訳ありませんでした。
どうもありがとうございました！

回答No.2

mitarashi

離れた列範囲を選択して自動記録すると、文字列で与える方法が記録されると思いますが、
Rangeで与えたいなら、下記の様にすると簡便だと存じます。（データ範囲はご質問にはそっておらず適当です）
ご参考まで。

Sub test()
Dim targetRange As Range

Set targetRange = Union(Range(Cells(4, 2), Cells(11, 2)), Range(Cells(4, 4), Cells(11, 4)), Range(Cells(4, 6), Cells(11, 6)))
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnStacked100
ActiveChart.SetSourceData Source:=targetRange
End Sub