Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12739 / 13645 ツリー ←次へ | 前へ→

【8924】グラフシートについて NH 03/11/9(日) 11:15 質問
【8925】Re:グラフシートについて ichinose 03/11/9(日) 12:23 回答
【8926】Re:グラフシートについて NH 03/11/9(日) 14:43 お礼

【8924】グラフシートについて
質問  NH  - 03/11/9(日) 11:15 -

引用なし
パスワード
   いつも助けていただいてばかりですいませんが、また一つ教えてください。
ファイルを開くときに何枚かあるグラフシートを削除したいのですが
(枚数が不定)どの様にすればよろしいのでしょうか。
条件として
 1枚だけとは限らない
 Graph1から順番にだけでなくGraph3からという場合もある
 グラフシートの数は決まっては無いけど最大10枚はいかない
という状態なんですが。

Excelは2002です。

【8925】Re:グラフシートについて
回答  ichinose  - 03/11/9(日) 12:23 -

引用なし
パスワード
   ▼NH さん:
こんにちは。

>いつも助けていただいてばかりですいませんが、また一つ教えてください。
>ファイルを開くときに何枚かあるグラフシートを削除したいのですが
>(枚数が不定)どの様にすればよろしいのでしょうか。
>条件として
> 1枚だけとは限らない
> Graph1から順番にだけでなくGraph3からという場合もある
> グラフシートの数は決まっては無いけど最大10枚はいかない
>という状態なんですが。
>
>Excelは2002です。
グラフシートのみの削除なら、Chartsコレクションを使用してみて下さい
一例ですが、

Sub test()
  on error resume next
  Application.DisplayAlerts = False
  ThisWorkbook.Charts.Delete
  Application.DisplayAlerts = True
  on error goto 0
End Sub

【8926】Re:グラフシートについて
お礼  NH  - 03/11/9(日) 14:43 -

引用なし
パスワード
   ▼ichinose さん:
>グラフシートのみの削除なら、Chartsコレクションを使用してみて下さい
>一例ですが、
>
>Sub test()
>  on error resume next
>  Application.DisplayAlerts = False
>  ThisWorkbook.Charts.Delete
>  Application.DisplayAlerts = True
>  on error goto 0
>End Sub

いつもここの皆様には助けていただき、有難うございます。Chartsコレクション
をヘルプで見てたいへん勉強になりました。これからもよろしくお願いします。

12739 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free