Layout Property

Microsoft PowerPoint Visual Basic

Show All

Layout Property

       
Layout property as it applies to the DiagramNode object.

Returns or sets an MsoOrgChartLayoutType constant that represents the layout type for the diagram nodes in an organization chart. Read/write.

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.

Returns or sets a PpSlideLayout constant that represents the slide layout. Read/write.

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