Excelのグラフ「２軸上の折れ線と縦棒」で、折れ線が反映する軸を変更するには？

・２軸上の折れ線と縦棒のグラフを作っています。
・４つの折れ線と、１つの縦棒を作りたいので、
　対象となるセル５行６列を選択して、
　「２軸上の・・」を選択したグラフ作成をしました。
・すると、上から３行が縦棒で、下から２行が折れ線
になってしまいます。
・上から４行を折れ線、下１行を縦棒にしたいので、マクロで

Worksheets("ファイル名").ChartObjects(1) _
.Chart.SeriesCollection(1).ChartType = xlLine

の構文を用い、
SeriiesCollection(1)から(4）をxLineに、
(5)をxlColumnClusteredにし実行したところ、
上4行を折れ線、下1行を縦棒にすることには
成功しました。

ですがそうなったものの、、上から4行目の折れ線だけが、
右側（Secondary)の縦棒の軸を反映しての折れ線
になってしまいます。
（※折れ線軸(左）は0から100の範囲、
　縦棒の軸（右）は0から1000000の範囲なので、
　4行目の折れ線（10.0, 12.3, 11.5, ・・・)が、
　右軸を反映してまっ平の一直線で表現されてしまいます。
　対象の行ごとの問題？グラフのグループ設定の問題？。）


そこで、お願いがあります！。
この4行目の折れ線を左側の軸（primary)を反映した
折れ線になる様にするにはどうしたらよいか、
どなたか教えて頂けませんでしょうか。
お手数ですがなにとぞ宜しくお願い申し上げます。

No.1 ベストアンサー 回答者： popeye34 回答日時： 2005/08/26 17:51

簡単にその折れ線を指定してデータ系列の書式設定から軸を主軸に変更すればいいのではないでしょうか?

それではダメですか？

この回答への補足

コメント、有難うございます！。
ただ、この処理をマクロで書いておきたく（グラフの自動作成化のため）
VBで書くとどの様になるのか教えて頂けると有難いです。
再度お手数お掛けしますが、どうか宜しくお願い致します！。

補足日時：2005/08/27 00:09