|
|
楼主 |
发表于 2015-12-12 18:06
|
显示全部楼层
AddNode方法
应用于 DiagramNodeChildren对象的 AddNode方法。
向图示子节点集合中添加 DiagramNode对象。
expression.AddNode(Index)
expression 必选。该表达式返回一个 DiagramNodeChildren对象。
Index 可选。Variant 类型。添加新图示节点的索引位置；0 表示添加到所有节点之前；-1 表示添加到所有节点之后；任何其他 Index 表示添加到集合中该节点之后。
应用于 DiagramNode对象的 AddNode方法。
返回一个 DiagramNode对象，该对象代表一个添加到图示的节点。
expression.AddNode(Pos)
expression 必选。该表达式返回一个 DiagramNode对象。
Pos 可选。MsoRelativeNodePosition 类型。相对于调用节点指定添加节点的位置。
MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 常数之一。
msoAfterLastSibling
msoAfterNode 默认值
msoBeforeFirstSibling
msoBeforeNode
VBA示例
下面示例将节点添加到一个新建的图示中。
Sub CreatePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intNodes As Integer
'Adds the pyramid diagram and first node
Set shpDiagram = ActivePresentation.Slides(1).Shapes _
.AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
Top:=15, Width:=400, Height:=475)
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Adds three more nodes to pyramid diagram
For intNodes = 1 To 3
dgnNode.AddNode
Next intNodes
End Sub
AddNodes方法
在正在创建的任意多边形的末尾插入一个新段并添加定义该段的结点。可以使用该方法任意多次地为正在创建的任意多边形添加结点。当添加完结点后，使用ConvertToShape方法创建刚定义的任意多边形。若要给创建好的任意多边形添加结点，请使用ShapeNodes集合的Insert方法。
expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression 必选。该表达式返回一个 FreeformBuilder对象。
SegmentType 必选。MsoSegmentType 类型。要添加的段类型。
MsoSegmentType 可以是下列 MsoSegmentType 类型常数之一。
msoSegmentCurve
msoSegmentLine
EditingType 必选。MsoEditingType 类型。该顶点的编辑属性；如果 SegmentType 是 msoSegmentLine，则 EditingType 必须为 msoEditingAuto。
MsoEditingType 可以是下列 MsoEditingType 类型常数之一（不能是 msoEditingSmooth 或 msoEditingSymmetric）。
msoEditingAuto
msoEditingCorner
X1 必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段的第一个控制点的水平距离（以磅为单位）。
Y1 必选。Single 类型。如果新段的 EditingType 为 msoEditingAuto，则此参数指定从文档左上角到新段终点的垂直距离（以磅为单位）。如果新结点的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段的第一个控制点的垂直距离（以磅为单位）。
X2 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段第二个控制点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
Y2 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段第二个控制点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
X3 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的水平距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
Y3 可选。Single 类型。如果新段的 EditingType 为 msoEditingCorner，则此参数指定从文档左上角到新段终点的垂直距离（以磅为单位）。如果新段的 EditingType 为 msoEditingAuto，请不要指定该参数值。
VBA示例
本示例在当前演示文稿的第一张幻灯片中添加一个具有五个顶点的任意多边形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _
X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
.AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _
X1:=480, Y1:=200
.AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
X1:=480, Y1:=400
.AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
X1:=360, Y1:=200
.ConvertToShape
End With
|
|
楼主: weiyingde
沪公网安备 31011702000001号 沪ICP备11019229号-2
