特定の範囲内にある図形を全て選択する
A1:E10の範囲内にある図形で、一部のみ範囲内にあるものを除き
全て選択します。
Sub Sample95()
Dim C As Shape
For Each C In ActiveSheet.Shapes
If Not Intersect(C.TopLeftCell, Range("A1:E10")) Is Nothing _
And Not Intersect(C.BottomRightCell, Range("A1:E10")) Is Nothing Then
C.Select False
End If
Next C
End Sub