|
別シートの特定の図をデリートしようとしています。
まず別シート(main)をセレクトして特定の図をデリートして、元のシート(base)に戻る(セレクトしなおし)処理をしているのですが。。。。
別シート(main)が一瞬だけチラっと表示されるのが気になってしまいます。
別シート(main)をセレクトせずに、別シート(main)内の特定の図をデリートする方法ってあるのでしょうか?
'******************************************
' mainの図をデリート
'******************************************
Sheets("main").Select
Dim tx As Shape
For Each tx In ActiveSheet.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
|
|