選択した複数の図形をいっぺんに削除したいが?

Question 5310 拙著「Excel VBA そのまま使える実用マクロ 500連発」 Previous Next
詳細は こちら サンプルNo.313 ◆ 環境・・ Excel 2003 & Windows XP

いつもありがとうございます。 図形(○)を消す方法を教えてください。
セルをポイントしてボタンを押すと、図形の丸が表示出来るようになっています。それを消すのが大変なのです。
すべての丸を消す訳ではなく、所々消したいのです。数が多いので苦労しています。
「図形を右クリックしたらその図形だけ消える」 なんて事が出来るのですか。
Answer   Copyright (C) 2007.12.27 永井善王
拙著 「Excel VBA そのまま使える実用マクロ 500連発」 を お求めいただき、ありがとうございます。
313番は 「図形を削除する」 と題するサンプルで、下記6個のマクロが載っています。
 1. 指定した図形を削除する
 2. 指定した種類の図形を見つけて削除する
 3. すべての図形を選択して削除する
 4. 指定したセル範囲にある図形を削除する
 5. 図形の名前を調べて削除する
 6. 指定した図形を切り取る
この中で、あなたの欲求に沿えそうなのは 4. のマクロで、コードは下記のとおりです。
Private Sub 指定したセル範囲にある図形を削除する()
    指定セル範囲 = "B2:F20"
    With ActiveSheet
    Set セル範囲 = .Range(指定セル範囲)

    For Each 図形 In .Shapes
      If 図形.Type = msoPicture Then
          Set 共有セル範囲 = Intersect(Range(図形.TopLeftCell, _
          図形.BottomRightCell), セル範囲)
          If Not (共有セル範囲 Is Nothing) Then
            図形.Delete
          End If
      End If
    Next
  End With
End Sub
このマクロを改造すれば何とかなると思いますが、その前に伺いたいことがあります。
一般操作でも右図のように、複数の図形を選択することが可能です。 この状態で {Delete]キーを押すと、選択された図形がいっぺんに消えます。
「数が多いので苦労」とのことですが、消すべき図形を選択する操作は必須でしょうから、 [Delete]キーを押す1回だけの手間が「苦労」ということになるのではないでしょうか。
私の勘違いがあるといけないので、ご返事ください。

 

Excel VBA Macro