<スポンサーリンク>

【VBA】範囲内の画像を消す方法

マクロVBA

2022.04.21

この記事は約2分で読めます。

<スポンサーリンク>

忘備録です。

【VBA】範囲内の画像を消す方法

選択した範囲内の画像を消すプログラムになります。

Sub DELETESHAPE()
 
 
    Dim RowN As Integer
     
 
    ''エクセルシート上で選択した範囲内の全ての図形を削除する
 
    Set select_range = Range(Cells(6, 1), Cells(10000, 4))
    select_range.ClearContents
    If ActiveSheet.Shapes.Count > 2 Then
        For i = ActiveSheet.Shapes.Count To 1 Step -1
            With ActiveSheet.Shapes(i)
                Set shp_rng = Range(.TopLeftCell, .BottomRightCell)
                If Not Intersect(shp_rng, select_range) Is Nothing Then
                    ActiveSheet.Shapes(i).Delete
                End If
            End With
        Next i
    End If
     
End Sub

【VBA】範囲内の画像を消す方法

コメント欄