PowerPoint VBA教程:Root属性

返回DiagramNode对象,该对象代表图示源节点所属的图示根节点。 

expression.Root

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

VBA示例

以下示例创建一个组织结构图,并向图示根节点中添加子节点。


Sub AddChildNodesToRoot()
    Dim dgnNode As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer
        'Adds organization chart and first node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    shpOrgChart.DiagramNode.Children.AddNode
    Set dgnNode = shpOrgChart.DiagramNode.Root
      'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
End Sub

上页:PowerPoint VBA教程:RGB属性 下页:PowerPoint VBA教程:RotatedChars属性

PowerPoint VBA教程:Root属性

PowerPoint VBA教程:RotatedChars属性 PowerPoint VBA教程:Rotation属性
PowerPoint VBA教程:RotationEffect属性 PowerPoint VBA教程:RotationX属性
PowerPoint VBA教程:RotationY属性 PowerPoint VBA教程:Rows属性
PowerPoint VBA教程:Ruler属性 PowerPoint VBA教程:Run属性
PowerPoint VBA教程:Saved属性 PowerPoint VBA教程:SaveNewWebPagesAsWebArchives属性
PowerPoint VBA教程:ScaleEffect属性 PowerPoint VBA教程:SchemeColor属性
PowerPoint VBA教程:ScreenSize属性 PowerPoint VBA教程:ScreenTip属性
PowerPoint VBA教程:Script属性 PowerPoint VBA教程:Scripts属性
PowerPoint VBA教程:SegmentType属性 PowerPoint VBA教程:Selected属性
PowerPoint VBA教程:Selection属性 PowerPoint VBA教程:Shadow属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号