Word VBA教程:Layout属性

返回或设置一个MsoOrgChartLayoutType 常量,以表明组织结构图中的子顶点的格式。可读写。

MsoOrgChartLayoutType 可以是下列 MsoOrgChartLayoutType 常量之一:
msoOrgChartLayoutAssistant  将子顶点作为辅助顶点来放置。
msoOrgChartLayoutBothHanging  将子顶点垂直置于左右两边的父顶点之下。
msoOrgChartLayoutLeftHanging  将子顶点垂直置于左边的父顶点之下。
msoOrgChartLayoutMixed  返回父顶点的值,该父顶点包含使用多个 MsoOrgChartLayoutType 常量设置格式的子顶点。
msoOrgChartLayoutRightHanging  将子顶点垂直置于右边的父顶点之下。
msoOrgChartLayoutStandard  将子顶点水平置于父顶点之下。

expression.Layout

expression   必需。该表达式返回一个DiagramNode对象。

VBA示例

本示例在活动文档中创建一个组织结构图,该组织结构图有三个子顶点,并且垂直置于右边的父顶点之下。


Sub OrgChartLayoutHangRight()
    Dim shpOrgChart As Shape
    Dim dgnRoot As DiagramNode
    Dim dgnManagerShape As DiagramNode
    Dim intCount As Integer
    'Add an org chart to the active document and
    'add the first (parent) node
    Set shpOrgChart = ActiveDocument.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnRoot = shpOrgChart.DiagramNode.Children.AddNode
    'Add three child nodes to the parent node
    For intCount = 1 To 3
        dgnRoot.Children.AddNode
    Next
    'Format the child nodes to hang vertically along the
    'right directly under the parent node.
    dgnRoot.Layout = msoOrgChartLayoutRightHanging
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号