Excel VBA 図形を削除する・図形の種類を取得する

■図形を削除するにはShapeオブジェクトのDeleteメソッドを使用する
　オブジェクト.Delete
    ※オブジェクト：Shapeオブジェクト
■TyPeプロパティを使用する
　オブジェクト.Type
  ※オブジェクト：Shapeオブジェクト
■使用例

Sub sample()
    Dim shp As Shape
    'シート内の矢印線のみ削除する
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoLine Then
            shp.Delete
        End If
    Next
End Sub