Excel VBA教程:Layout属性

返回或设置一个MsoOrgChartLayoutType 常量,该常量指示组织结构图的子节点的格式设置。可读写。

MsoOrgChartLayoutType 可为以下 MsoOrgChartLayoutType 常量之一。
msoOrgChartLayoutAssistant  将子节点作为辅助节点。
msoOrgChartLayoutBothHanging  将子节点垂直放置在父节点的左边和右边。
msoOrgChartLayoutLeftHanging  将子节点垂直放置在父节点的左边。
msoOrgChartLayoutMixed  返回具有子节点的父节点的值,其中,使用了多个 MsoOrgChartLayoutType对子节点进行格式设置。
msoOrgChartLayoutRightHanging  将子节点垂直放置在父节点的右边。
msoOrgChartLayoutStandard  将子节点水平放置在父节点的下边。

expression.Layout

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

Excel VBA教程:Layout属性·示例

在本示例中,将组织结构图的版式修改为右缩进,而不是标准形式。


Sub Layout()
    Dim nodRoot As DiagramNode
    Dim shDiagram As Shape
    Dim intCount As Integer
    Set shDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Top:=10, _
        Left:=15, Width:=400, Height:=475)
    Set nodRoot = shDiagram.DiagramNode.Children.AddNode
    ' Add three mode nodes.
    For intCount = 1 To 3
        nodRoot.Children.AddNode
    Next
    ' Change the layout to right-hanging.
    nodRoot.Layout = msoOrgChartLayoutRightHanging
End Sub

上页:Excel VBA教程:LastChild属性 下页:Excel VBA教程:LayoutBlankLine属性

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属性 Excel VBA教程:LinkFormat属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号