VBA之AddNode 方法
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
示例：下面示例将节点添加到一个新建的图示中。
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
貌似我真的很笨????哎 没人理我。。。。
页:
[1]