用VBA检查excel范围是否有形状

Sub CheckShapesInRange()
    Dim rng As Range
    Dim shp As Shape
    Dim hasShape As Boolean
    
    ' 设置要检查的范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:D10")
    
    ' 初始化标志变量
    hasShape = False
    
    ' 遍历范围内的每个形状
    For Each shp In rng.Shapes
        hasShape = True
        Exit For
    Next shp
    
    ' 根据结果显示消息框
    If hasShape Then
        MsgBox "范围内存在形状。"
    Else
        MsgBox "范围内不存在形状。"
    End If
End Sub