Excel VBA質問箱 IV

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

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


74618 / 76732 ←次へ | 前へ→

【6576】Re:別シートの図のデリートについて
回答  ひで  - 03/7/11(金) 13:02 -

引用なし
パスワード
   ▼うめ さん こんんちは

>別シートの特定の図をデリートしようとしています。
>
>まず別シート(main)をセレクトして特定の図をデリートして、元のシート(base)に戻る(セレクトしなおし)処理をしているのですが。。。。
>別シート(main)が一瞬だけチラっと表示されるのが気になってしまいます。
>
>別シート(main)をセレクトせずに、別シート(main)内の特定の図をデリートする方法ってあるのでしょうか?


'******************************************
'  mainの図をデリート
'******************************************
  'Sheets("main").Select ←これなし
 
  Dim tx As Shape
 
  For Each tx In Sheets("main").Shapes ’ここ変更←
   Select Case Left(tx.Name, 2)
    Case "b_" '/*名称の先頭が「b_」以外を削除する)
      GoTo step_1
    Case Else
      tx.Delete
   End Select
step_1:
   Next tx
 
'******************************************
'******************************************

  Sheets("base").Select

これでどうでしょうか?

0 hits

【6575】別シートの図のデリートについて うめ 03/7/11(金) 11:42 質問
【6576】Re:別シートの図のデリートについて ひで 03/7/11(金) 13:02 回答
【6578】すみません。 Jaka 03/7/11(金) 13:08 発言
【6579】Re:すみません。 ひで 03/7/11(金) 13:45 発言
【6577】Re:別シートの図のデリートについて Jaka 03/7/11(金) 13:04 回答
【6582】Re:別シートの図のデリートについて うめ 03/7/11(金) 15:08 質問
【6583】Re:別シートの図のデリートについて うめ 03/7/11(金) 15:29 回答
【6585】Re:別シートの図のデリートについて うめ 03/7/11(金) 15:32 お礼

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