'B2:F2の範囲に横線を引く例です。
Sub オートシェイプで横線を引く()
With Range("B2:F2")
ActiveSheet.Shapes.AddLine .Left, .Top, .Left + .Width, .Top
End With
End Sub
'B2:F2の周囲に楕円形で囲む例です。
Sub 楕円形で囲む()
With Range("B2:F2")
ActiveSheet.Shapes.AddShape msoShapeOval, .Left, .Top, .Width, .Height
End With
End Sub
'B2:F2の周囲に四角形で囲む例です。
Sub 四角形で囲む()
With Range("B2:F2")
ActiveSheet.Shapes.AddShape msoShapeRectangle, .Left, .Top, .Width, .Height
End With
End Sub
'円形のオートシェイプのみ削除する例です。
Sub 円形のみ削除()
Dim C As Shape
For Each C In ActiveSheet.Shapes
If C.AutoShapeType = msoShapeOval Then
C.Delete
End If
Next C
End Sub