Excel VBA教程:FirstChild属性

返回一个DiagramNode对象,该对象代表父节点的第一个子节点。

expression.FirstChild

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

Excel VBA教程:FirstChild属性·示例

本示例向当前的工作表添加一个组织结构图图表,添加三个节点,并将第一个和最后一个节点指定为变量。


Sub FirstChild()
    Dim shpDiagram As Shape
    Dim dgnRoot As DiagramNode
    Dim dgnFirstChild As DiagramNode
    Dim dgnLastChild As DiagramNode
    Dim intCount As Integer
    'Add organizational chart diagram to the current document
    Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    'Add the first node to the diagram
    Set dgnRoot = shpDiagram.DiagramNode.Children.AddNode
    'Add three child nodes
    For intCount = 1 To 3
        dgnRoot.Children.AddNode
    Next intCount
    'Assign the first and last child nodes to variables
    Set dgnFirstChild = dgnRoot.Children.FirstChild
    Set dgnLastChild = dgnRoot.Children.LastChild
End Sub

上页:Excel VBA教程:FindFormat属性 下页:Excel VBA教程:FirstPageNumber属性

Excel VBA教程:FirstChild属性

Excel VBA教程:FirstPageNumber属性 Excel VBA教程:FirstSliceAngle属性
Excel VBA教程:FitToPagesTall属性 Excel VBA教程:FitToPagesWide属性
Excel VBA教程:FixedDecimal属性 Excel VBA教程:FixedDecimalPlaces属性
Excel VBA教程:Floor属性 Excel VBA教程:FolderSuffix属性
Excel VBA教程:Font属性 Excel VBA教程:FontBold属性
Excel VBA教程:FontItalic属性 Excel VBA教程:FontName属性
Excel VBA教程:Fonts属性 Excel VBA教程:FontSize属性
Excel VBA教程:FontStyle属性 Excel VBA教程:FooterMargin属性
Excel VBA教程:ForeColor属性 Excel VBA教程:FormatConditions属性
Excel VBA教程:FormControlType属性 Excel VBA教程:Formula属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号