Excel VBA教程:LastChild属性

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

expression.LastChild

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

Excel VBA教程:LastChild属性·示例

下例向新创建的图表的最后一个子图表节点添加一个子节点。


Sub LastChildNode()
    Dim nodDiagram As DiagramNode
    Dim nodLast As DiagramNode
    Dim shDiagram As Shape
    Dim intCount As Integer
    Set shDiagram = ActiveSheet.Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set nodDiagram = shDiagram.DiagramNode.Children.AddNode
    ' Add three diagram child nodes under the first diagram node
    For intCount = 1 To 3
        nodDiagram.Children.AddNode
    Next intCount
    ' Assign the last child node to a variable
    Set nodLast = nodDiagram.Children.LastChild
    ' Add a node to the last child node.
    nodLast.Children.AddNode
End Sub

上页:Excel VBA教程:LargeChange属性 下页:Excel VBA教程:Layout属性

Excel VBA教程:LastChild属性

Excel VBA教程:Layout属性 Excel VBA教程:LayoutBlankLine属性
Excel VBA教程:LayoutForm属性 Excel VBA教程:LayoutPageBreak属性
Excel VBA教程:LayoutSubtotalLocation属性 Excel VBA教程:LeaderLines属性
Excel VBA教程:Left属性 Excel VBA教程:LeftFooter属性
Excel VBA教程:LeftFooterPicture属性 Excel VBA教程:LeftHeader属性
Excel VBA教程:LeftHeaderPicture属性 Excel VBA教程:LeftMargin属性
Excel VBA教程:Legend属性 Excel VBA教程:LegendKey属性
Excel VBA教程:Length属性 Excel VBA教程:LibraryPath属性
Excel VBA教程:Line属性 Excel VBA教程:Line3DGroup属性
Excel VBA教程:LineStyle属性 Excel VBA教程:LinkedCell属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号