|
▼うめ さん こんんちは
>別シートの特定の図をデリートしようとしています。
>
>まず別シート(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
これでどうでしょうか?
|
|