Sub 修剪()
' 修剪“1”剪“2”
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
Dim s1 As Shape
Set s1 = sr(2).Trim(sr(1), True, True)
sr(1).Delete
End Sub
Sub 焊接()
' 焊接“1”焊“2”
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
Dim s1 As Shape
Set s1 = sr(2).Weld(sr(1), True, True)
sr(1).Delete
End Sub

首先随便画两个形状，选中，然后在宏编辑器中，把上面代码随便找个模块粘贴进去，运行上面的代码（有两个方法，需要分别执行），就可以看到效果