PowerPoint VBA教程: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

上页:PowerPoint VBA教程:AddMediaObject方法 下页:PowerPoint VBA教程:AddNodes方法

PowerPoint VBA教程:AddNode方法

PowerPoint VBA教程:AddNodes方法 PowerPoint VBA教程:AddOLEObject方法
PowerPoint VBA教程:AddPeriods方法 PowerPoint VBA教程:AddPicture方法
PowerPoint VBA教程:AddPlaceholder方法 PowerPoint VBA教程:AddPolyline方法
PowerPoint VBA教程:AddShape方法 PowerPoint VBA教程:AddTable方法
PowerPoint VBA教程:AddTextbox方法 PowerPoint VBA教程:AddTextEffect方法
PowerPoint VBA教程:AddTitle方法 PowerPoint VBA教程:AddTitleMaster方法
PowerPoint VBA教程:AddToFavorites方法 PowerPoint VBA教程:Align方法
PowerPoint VBA教程:Apply方法 PowerPoint VBA教程:ApplyTemplate方法
PowerPoint VBA教程:Arrange方法 PowerPoint VBA教程:AutomaticLength方法
PowerPoint VBA教程:Background方法 PowerPoint VBA教程:BeginConnect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号