PowerPoint VBA教程:LastChild属性

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

expression.LastChild

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

VBA示例

以下示例创建一个新图示并标识最后一个图示子节点。


Sub LastChildNodeHello()
    Dim shpDiagram As Shape
    Dim dgnNode As DiagramNode
    Dim dgnLast As DiagramNode
    Dim intNodes As Integer
    'Add org chart to first slide and first child node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Add three additional nodes
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Enter text into last child node
    Set dgnLast = dgnNode.Children.LastChild
    dgnLast.Shape.TextFrame.TextRange.Text = "Here I am!"
End Sub

上页:PowerPoint VBA教程:LanguageSettings属性 下页:PowerPoint VBA教程:LastSlideViewed属性

PowerPoint VBA教程:LastChild属性

PowerPoint VBA教程:LastSlideViewed属性 PowerPoint VBA教程:Layout属性
PowerPoint VBA教程:LayoutDirection属性 PowerPoint VBA教程:Left属性
PowerPoint VBA教程:LeftMargin属性 PowerPoint VBA教程:Length属性
PowerPoint VBA教程:Levels属性 PowerPoint VBA教程:Line属性
PowerPoint VBA教程:LineRuleAfter属性 PowerPoint VBA教程:LineRuleBefore属性
PowerPoint VBA教程:LineRuleWithin属性 PowerPoint VBA教程:LinkFormat属性
PowerPoint VBA教程:Loaded属性 PowerPoint VBA教程:LockAspectRatio属性
PowerPoint VBA教程:LoopSoundUntilNext属性 PowerPoint VBA教程:LoopUntilStopped属性
PowerPoint VBA教程:Magenta Property PowerPoint VBA教程:MainSequence属性
PowerPoint VBA教程:MarginBottom属性 PowerPoint VBA教程:MarginLeft属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号