コピペで１つにまとめた散布図の系列の指定方法を教えてください。（Excel2003）

コピペで１つにまとめた散布図の系列の指定方法を教えてください。（Excel2003）

気温を横軸、降水量を縦軸とし、１月と２月の散布図を作りました。
Ａ列 １月気温（31データ）
B列 １月降水量（31データ）
C列 ２月気温（28データ）
D列 ２月降水量（28データ）

2月のグラフ（C,D列）をコピーして1月（A,B列）のグラフに貼りつけ、1枚のグラフに2系列のデータがある状況です。
ここで、2月の降水量の系列を指定する方法を教えてください。

2月のデータの書式を変更したいのですが、
ActiveChart.SeriesCollection(2).Select
としても、なぜか1月の系列が選択されてしまい、うまくいきません。

よろしくお願いします。

No.1 回答者： redfox63 回答日時： 2008/10/29 15:55

その描画されているグラフを選択して

Excelのメニューから グラフ > 元データを実行
系列タブを選択して『系列(S)』のリストの2行目はどこのデータになっているのでしょう

ここが『1月の降水量』になっていませんか

Excelのコレクションは 1ベースの配列になるので
ActiveChart.SeriesCollection(2) は2番目の系列になります

系列設定が A,B,C,D列の順にあるなら
ActiveChart.SeriesCollection(3)
ActiveChart.SeriesCollection(4)
が C、D列になると思います ・・・

この回答への補足

redfox63さま　ご回答ありがとうございます。
系列は1月と2月の2系列です。
系列リストの2行目は2月のデータ（X＝Ｃ列、Ｙ＝Ｄ列）となっています。
ちなみに1行目は1月（X＝A列、Ｙ＝B列）です。

２つのグラフの統合方法として、
1月のグラフの「元データ」→「系列追加」→C,D列を
選択する方法もあり、この場合はご指摘のとおり
ActiveChart.SeriesCollection(2) は2番目の系列（2月）となります。
ですが、最初の方法（2月のグラフを1月のグラフにコピーする）でまとめると、
ActiveChart.SeriesCollection(2) でも1番目（1月）の系列となってしまいます。

コピーペーストで統合したグラフが既に大量にあるので、
グラフの作り直しをせずに対応できればありがたいです。

補足日時：2008/10/29 16:15

この回答へのお礼

redfox63さま　ご回答ありがとうございます。
お礼欄と補足欄を間違えて使ってしまいました。失礼いたしました。
何かわかりましたらまたご回答お願いいたします。

お礼日時：2008/10/29 16:56

No.2 回答者： redfox63 回答日時： 2008/10/29 17:01

散布図でしたね ・・・

SeriesCollection( "2月のデータ" ).Select
といった具合で シリーズのNameプロパティを指示してみてはいかがでしょう

この回答へのお礼

ありがとうございます。
元のデータ→系列→名前から「1月」、「2月」と名前をつけ、
以下を実行しました。

Dim i As String
ActiveChart.SeriesCollection("2月").Select
With Selection
i = .Name
.MarkerSize = 3
End With
Range("E1") = i
End Sub

残念ながら1月のデータが操作され、E1も1月となりました。
これも普通に作った2系列のグラフではうまくいくのですが、
コピー貼りつけで作った2系列のグラフではうまくいかないようです。
なお、ActiveChart.SeriesCollection("1月").Selectとしてもやはり1月になります。
存在しないActiveChart.SeriesCollection("3月").Selectとするとエラーとなります。
（もともと2月のグラフを作った時点では2月の系列インデックスは「1」で、
1月のインデックス「1」と競合して不具合が生じているような気がします。）

また、例として月別降水量としていますが、
実際には系列がたくさんあり、また名前も不規則なので、
ActiveChart.SeriesCollection(i)でループを使えるとよいのですが。。。

お礼日時：2008/10/29 18:09

No.3 ベストアンサー 回答者： redfox63 回答日時： 2008/10/29 18:58

ん～ 困りましたね ・・・

dim obj as Series
for each obj in ActiveChart.SeriesCollection
　　debug.print obj.Name, obj.Formula
Next

で名前と参照先を確認されてはいかがでしょう

この回答へのお礼

たびたびありがとうございます。やってみました。

系列追加の場合
　1月=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$10,Sheet1!$B$2:$B$10,1)
　2月=SERIES(Sheet1!$D$1,Sheet1!$C$2:$C$10,Sheet1!$D$2:$D$10,2)

コピーペーストの場合
　1月=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$10,Sheet1!$B$2:$B$10,1)
　2月=SERIES(Sheet1!$B$1,Sheet1!$A$2:$A$10,Sheet1!$B$2:$B$10,1)

見た目は全く同じグラフなのですが。不思議です。
困りました。。。

お礼日時：2008/10/29 19:36

No.4 回答者： redfox63 回答日時： 2008/10/29 22:11

Copy & Pasteを間違えた ってことは無いですよね ・・・

データの内容がまったく違うもので試してみても今回のような現象が発生するのでしょうか
ん～ 元データが同じってのが 解せませんね
ちょっと お手上げ状態です m(__)m

この回答へのお礼

確認用にA2：D10に適当な数字を入れてみたのが、
先ほどの結果です。
今回のやり取りをする中でも
昔に作ったものや新しいものでもいろいろ試してみましたが。。。

ここまでお付き合いいただき、どうもありがとうございました。

お礼日時：2008/10/29 23:36