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 SubAs 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