選択図形からコネクタだけを削除

Sub 選択図形からコネクタだけを削除する()
On Error GoTo ErrHndl

Dim shp As Shape
For Each shp In Selection.ShapeRange
With shp
If .Connector Then
If .ConnectorFormat.BeginConnected Or _
.ConnectorFormat.EndConnected Then .Delete
End If
End With
Next shp
Exit Sub

ErrHndl:
MsgBox "図形を選択してから実行してください。"
End Sub