宣言の重複についてのエラー

選択されているセルの範囲内にある画像を消去しようとサイトを探していたところ、以下のサイトを見つけました。
https://www.relief.jp/docs/018407.html

そこに書いてあるコードを実行すると「同じ適用範囲内で重複しています」となります（以下がそのコードです）

Sub 画像削除()

If TypeName(Selection) <> "Range" Then Exit Sub
  Dim rng As Range
  Set rng = Range(shp.TopLeftCell, shp.BottomRightCell)
 
  Dim shp As Shape
  For Each shp In ActiveSheet.Shapes
    If Not (Intersect(rng, Selection) Is Nothing) Then
      shp.Delete
    End If
  Next
End Sub

Dim shp As Shapeがエラーとして表示されるのですが、他にshpという宣言が見当たりません。

宣言より前に「 Set rng = Range(shp.TopLeftCell, shp.BottomRightCell)」
というコードがあるのですが、ここに使われている「shp」は関係あるのでしょうか。

解説いただけると非常にうれしいです・
よろしくお願いします。

meg_

2020/08/10 14:18

質問のコードを実行すると、「Set rng = Range(shp.TopLeftCell, shp.BottomRightCell)」の部分で「変数が定義されてません」のコンパイルエラーが出ます。質問のコード以外にコードがあるのでしたらそちらも掲載してください。

ice930

2020/08/10 14:34

題名の「画像削除」以外は全てサイトに掲載されていたコードです。前後にコードは作成しておらず、独立して動かしています。

行動規範の内容に同意します

回答1件

ベストアンサー

Set rng = Range(shp.TopLeftCell, shp.BottomRightCell) の位置がおかしいですね。
下記でエラーなく動作します。

vba
1Sub 選択されているセル範囲内の図形を削除する()
2    If TypeName(Selection) <> "Range" Then Exit Sub
3
4    Dim shp As Shape
5    For Each shp In ActiveSheet.Shapes
6        Dim rng As Range
7        Set rng = Range(shp.TopLeftCell, shp.BottomRightCell)
8
9        If Not (Intersect(rng, Selection) Is Nothing) Then
10            shp.Delete
11        End If
12    Next
13End Sub

以下、質問とは直接関係ない蛇足ですが、

モジュールの先頭に、
Option Explicit
を宣言して、変数宣言を強制するようにしましょう。
そのうえで、[デバッグ]-[コンパイル]をクリックすると、「変数が定義されてません。」のコンパイルエラーが出て、該当コードが選択されます。
実行する前に間違いが分かります。

Office TANAKA - 今さら聞けないVBA[Option Explicitって何？]

Option Explicit が宣言されていない場合、
変数を宣言せずに使うことができます。
実際は、変数を使用すると同時に、VBAくんが裏で自動で宣言してくれてるわけです。
で、その後で、同じ変数を Dim で宣言すると、同じものが既に宣言されていることになるので「同じ適用範囲内で重複しています」エラーになるわけです。

下記も目を通しておくといいでしょう。

Office TANAKA - 今さら聞けないVBA[変数って宣言しなくちゃいけないの？]

投稿2020/08/10 14:20

編集2020/08/10 14:38