Layout Property

Microsoft Excel Visual Basic

constant to indicate the formatting of the child nodes of an organization chart. Read/write.

MsoOrgChartLayoutType can be one of these MsoOrgChartLayoutType constants.
msoOrgChartLayoutAssistant Places child nodes as assistants.
msoOrgChartLayoutBothHanging Places child nodes vertically from the parent node on both the left and the right side.
msoOrgChartLayoutLeftHanging Places child nodes vertically from the parent node on the left side.
msoOrgChartLayoutMixed Return value for a parent node that has children formatted using more than one MsoOrgChartLayoutType.
msoOrgChartLayoutRightHanging Places child nodes vertically from the parent node on the right side.
msoOrgChartLayoutStandard Places child nodes horizontally below the parent node.

expression.Layout

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

In this example, an organization chart's layout is modified to display as right-hanging instead of standard.

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