本示例在活动文档的图形 1 的第四个顶点的后面添加一个带有一条曲线的平滑顶点。图形 1 必须为至少带有四个顶点的任意多边形。

With ActiveDocument.Shapes(1).Nodes
    .Insert Index:=4, SegmentType:=ksoSegmentCurve, _
    EditingType:=ksoEditingSmooth, X1:=210, Y1:=100
End With