PowerPoint VBA教程:PrevNode方法

返回DiagramNode对象,该对象代表图示节点集合中的上一个图示节点。

expression.PrevNode

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例向第一个子节点中添加附加的子节点,第一个子节点是新建图示中位于第二个节点前的节点)。


Sub AddNodeToFirstChild()
    Dim dgnNode As DiagramNode
    Dim dgnPrev As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
    'Adds org chart and root node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpOrgChart.DiagramNode.Children.AddNode
    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Sets dgnPrev equal to first child node (the node
    'previous to the second child node)
    Set dgnPrev = dgnNode.Children.Item(2).PrevNode
    'Adds three child nodes to first child node
    For intNodes = 1 To 3
        dgnPrev.Children.AddNode
    Next intNodes
End Sub

上页:PowerPoint VBA教程:Previous方法 下页:PowerPoint VBA教程:PrintOut方法

PowerPoint VBA教程:PrevNode方法

PowerPoint VBA教程:PrintOut方法 PowerPoint VBA教程:Publish方法
PowerPoint VBA教程:Quit方法 PowerPoint VBA教程:Range方法
PowerPoint VBA教程:RangeFromPoint方法 PowerPoint VBA教程:Regroup方法
PowerPoint VBA教程:ReloadAs方法 PowerPoint VBA教程:Remove方法
PowerPoint VBA教程:RemoveBaseline方法 PowerPoint VBA教程:RemovePeriods方法
PowerPoint VBA教程:Replace方法 PowerPoint VBA教程:ReplaceNode方法
PowerPoint VBA教程:ReplyWithChanges方法 PowerPoint VBA教程:RerouteConnections方法
PowerPoint VBA教程:ResetRotation方法 PowerPoint VBA教程:ResetSlideTime方法
PowerPoint VBA教程:RotatedBounds方法 PowerPoint VBA教程:RtlRun方法
PowerPoint VBA教程:Run方法 PowerPoint VBA教程:Runs方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号