Sub Test()
'ActiveShape.Curve.Nodes.All.FirstNode.Chamfer 100, 100 '第一个节点倒角
ActiveShape.Curve.Nodes(2).Fillet 10, False
End Sub
Sub Test()
'ActiveShape.Curve.Nodes.All.FirstNode.Chamfer 100, 100 '第一个节点倒角
ActiveShape.Curve.Nodes(2).Fillet 10, False
End Sub