[[20040428001053]]　『棒グラフの"棒のかさなり"をVBAから操作したい』（ひろかず）　ページの最後に飛ぶ

『棒グラフの"棒のかさなり"をVBAから操作したい』（ひろかず）

初めて投稿させていただきます。
表題の件について手で操作するとすれば、棒グラフのプロットを右クリック～データ系列の書式設定～オプションタブ、と進めて「棒の重なり」を変更するわけですが、これをＶＢＡから行いたいのです。
ところがChartオブジェクトなど関連するオブジェクトのプロパティ／メソッドに相当するものが無いようなのです。もしかしてＶＢＡからは操作できないのでしょうか。教えてください。

Excel2000 + Windows2000です。

やはり難問なのでしょうか。

もっとも関係しそうなオブジェクトはSeriesオブジェクトかと思われますが、それらしきプロパティ／メソッドは無いようです。(BarShapeなどはありますが）

やりたいこととしては、正の値と負の値で棒の色を変えたい、そして棒の隙間を無くしたい、ということです。
そのために正の値だけの系列と負の値だけの系列を作って棒グラフ化すれば色は変えられますが、隙間が空いてしまいます。そこで「棒の重なり」「棒の間隔」を調整したいのですが。

過去ログの[[20040319014521]]『グラフの色ずけ』の最後のところで、

棒をダブルクリック～データ系列の書式設定～オプション棒の重なりを [100] ～棒の間隔、適度に調整して　OK

とレスされていますが、ここのところをVBで記述したいのです。

引き続き情報を探しております。（ひろかず）

 連休の谷間でみんなそれぞれに目的があって[エクセルの学校]は休校？状態です。

 単純にグラフを描いて重なりを変更するときに[マクロの自動記録]をつかって
 調べてみてください。

 Sub Macro2()
 ' マクロ記録日 : 2004/4/30  ユーザー名 : kazu
     ActiveSheet.ChartObjects("グラフ 1").Activate
     ActiveChart.SeriesCollection(1).Select
     With ActiveChart.ChartGroups(1)
         .Overlap = -60                   ' ← ここ
         .GapWidth = 150                  ' ← ここ
         .HasSeriesLines = False
         .VaryByCategories = False
     End With
 End Sub

 （kazu）

コメント返信：

[ 一覧(最新更新順) ]

[[20040428001053]] 『棒グラフの"棒のかさなり"をVBAから操作したい』（ひろかず） ページの最後に飛ぶ

[[20040428001053]]　『棒グラフの"棒のかさなり"をVBAから操作したい』（ひろかず）　ページの最後に飛ぶ