すぐに役立つエクセルVBAマクロ集 - FAQ 選択した複数の図形をいっぺんに削除したい

　　すぐに役立つエクセルVBAマクロ集すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　その他　・　FAQ

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

Question 5310

拙著「Excel VBA そのまま使える実用マクロ 500連発」

サンプルNo.313　◆ 環境・・ Excel 2003 & Windows XP

いつもありがとうございます。図形(○)を消す方法を教えてください。
セルをポイントしてボタンを押すと、図形の丸が表示出来るようになっています。それを消すのが大変なのです。
すべての丸を消す訳ではなく、所々消したいのです。数が多いので苦労しています。
「図形を右クリックしたらその図形だけ消える」　なんて事が出来るのですか。

Answer　　

拙著「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回だけの手間が「苦労」ということになるのではないでしょうか。
私の勘違いがあるといけないので、ご返事ください。