应用于 Shape 和 ShapeRange 对象的 Nodes 属性。
本示例假定活动文档中的第一个图形是图表,选中第一个节点并删除它。
Sub FillDiagramNode()
ActiveDocument.Shapes(1).Diagram.Nodes.Item(1).Delete
End Sub
本示例在活动文档的图形 3 的第四个顶点的后面添加一个带有一条曲线的平滑顶点。图形 3 必须为至少带有四个顶点的任意多边形。
With ActiveDocument.Shapes(3).Nodes
.Insert Index:=4, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With