複数表示しているグラフの全てを非表示・表示状態にするには？

現在、画面上に4つ（2×2）のグラフを表示しています。
4つのグラフを非表示にしたいのですが、下記のコードを実行すると、一番左上のものだけが非表示になります。どうやったら全部非表示にできるのでしょか。.Visible=Falseの部分を.Deleteにしたところ4つ全部消えたので、おそらく画面上の位置で判定して処理してるのだと思うのですが。（ちなみに、.Shapeを使って別の方法を試してみたところ、シート上のコマンドボタンまで消えてしまい、うまくいきませんでした。）

よろしくお願いします。（Excel2000使用）

k=ActiveSheet.ChartObjects.Count
For j=1 to k
　ActiveSheet.ChartObjects(1).Visible=False
Next j

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2006/07/05 18:11

> ActiveSheet.ChartObjects(1).Visible=False

(1) ではなく (j) ですね。

> Visible=Falseの部分を.Deleteにしたところ4つ全部消えた
この場合は、順に１つづつ削除していくので、次に残ったグラフの中の
ChartObjects(1) が削除され、これが繰り返されるからです。

この回答へのお礼

解決しました。ありがとうございました。

お礼日時：2006/07/05 23:14

No.2 回答者： imogasi 回答日時： 2006/07/05 18:55

質問コードは（）内をｊに直すと良いようですが、別に

全部非表示でよいなら
Sub test01()
TActiveSheet.ChartObjects.Visible = False 'True
End Sub
で良いようですよ。

この回答へのお礼

解決しました。ありがとうございました。

お礼日時：2006/07/05 23:14