Excel VBA質問箱 IV

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

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


33891 / 76734 ←次へ | 前へ→

【48059】シェイプの削除で
質問  レタス  - 07/4/2(月) 11:19 -

引用なし
パスワード
   shape5からshape35という名前のついたシェイプがあります。
5から35番まで連番ですが、抜けている番号もあります。
これら全てを削除するために

Private Sub CommandButton_Click()
Dim I As Integer
  On Error Resume Next
  For I = 5 To 35 Step 1
    ActiveSheet.Shapes("Shp_Circle" & I).Select
    Selection.Cut
  Next I
  On Error GoTo 0
End Sub

としてみました。
一応、うまく消えるのですが、最後(shape35)が存在しない場合、
マクロ実行前に選択されていたセルが切り取り状態になってしまいます。
(別セルを選択してエンターを押したらそのセルの内容が移動してしまいました)

選択されているセルが切り取り状態になる状態を回避する方法はありますか?
もしくは、削除自体でよい方法はありますか?
よろしくお願いいたします。

1 hits

【48059】シェイプの削除で レタス 07/4/2(月) 11:19 質問
【48060】Re:シェイプの削除で ぱっせんじゃー 07/4/2(月) 11:25 発言
【48061】Re:シェイプの削除で レタス 07/4/2(月) 12:23 お礼
【48062】Re:シェイプの削除で ぱっせんじゃー 07/4/2(月) 12:45 発言
【48064】Re:シェイプの削除で レタス 07/4/2(月) 14:28 お礼

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