Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12740 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8924】グラフシートについて ＮＨ 03/11/9(日) 11:15 質問
【8925】Re:グラフシートについて ichinose 03/11/9(日) 12:23 回答
【8926】Re:グラフシートについて ＮＨ 03/11/9(日) 14:43 お礼
【8924】グラフシートについて
質問  ＮＨ  - 03/11/9(日) 11:15 -
引用なし
パスワード
   いつも助けていただいてばかりですいませんが、また一つ教えてください。
ファイルを開くときに何枚かあるグラフシートを削除したいのですが
（枚数が不定）どの様にすればよろしいのでしょうか。
条件として
　１枚だけとは限らない
　Graph1から順番にだけでなくGraph3からという場合もある
　グラフシートの数は決まっては無いけど最大10枚はいかない
という状態なんですが。

Excelは2002です。
【8925】Re:グラフシートについて
回答  ichinose  - 03/11/9(日) 12:23 -
引用なし
パスワード
   ▼ＮＨ さん：
こんにちは。

>いつも助けていただいてばかりですいませんが、また一つ教えてください。
>ファイルを開くときに何枚かあるグラフシートを削除したいのですが
>（枚数が不定）どの様にすればよろしいのでしょうか。
>条件として
>　１枚だけとは限らない
>　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:グラフシートについて
お礼  ＮＨ  - 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コレクション
をヘルプで見てたいへん勉強になりました。これからもよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12740 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free