Layout Property

Layout property as it applies to the DiagramNode object.

MsoOrgChartLayoutType

MsoOrgChartLayoutType can be one of these MsoOrgChartLayoutType constants.

msoOrgChartLayoutAssistant

msoOrgChartLayoutBothHanging

msoOrgChartLayoutLeftHanging

msoOrgChartLayoutMixed

msoOrgChartLayoutRightHanging

msoOrgChartLayoutStandard

expression.Layout

*expression   * Required. An expression that returns a DiagramNode object.

Remarks

This property generates an error unless the diagram's Type property is msoDiagramTypeOrgChart.

Layout property as it applies to the Slide and SlideRange objects.

PpSlideLayout

PpSlideLayout can be one of these PpSlideLayout constants.

ppLayoutBlank

ppLayoutChart

ppLayoutChartAndText

ppLayoutClipartAndText

ppLayoutClipArtAndVerticalText

ppLayoutFourObjects

ppLayoutLargeObject

ppLayoutMediaClipAndText

ppLayoutMixed

ppLayoutObject

ppLayoutObjectAndText

ppLayoutObjectOverText

ppLayoutOrgchart

ppLayoutTable

ppLayoutText

ppLayoutTextAndChart

ppLayoutTextAndClipart

ppLayoutTextAndMediaClip

ppLayoutTextAndObject

ppLayoutTextAndTwoObjects

ppLayoutTextOverObject

ppLayoutTitle

ppLayoutTitleOnly

ppLayoutTwoColumnText

ppLayoutTwoObjectsAndText

ppLayoutTwoObjectsOverText

ppLayoutVerticalText

ppLayoutVerticalTitleAndText

ppLayoutVerticalTitleAndTextOverChart

expression.Layout

*expression   * Required. An expression that returns one of the above objects.

Example

As it applies to the DiagramNode object.

The following example changes the layout of a newly-crated diagram.

Sub ChangeDiagramLayout()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramOrgChart, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes

    dgnNode.Layout = msoOrgChartLayoutRightHanging

End Sub

As it applies to the Slide object.

This example changes the layout of slide one in the active presentation to include a title and subtitle if it initially has only a title.

With ActivePresentation.Slides(1)
    If .Layout = ppLayoutTitleOnly Then
        .Layout = ppLayoutTitle
    End If
End With

Applies to | DiagramNode Object | Slide Object | SlideRange Collection Object