全部显示
应用于 DiagramNode 对象的 Layout 属性。 返回或设置 MsoOrgChartLayoutType 类型常数，该常数代表组织结构图中图示节点的版式类型。可读写。
| MsoOrgChartLayoutType 可以是下列 MsoOrgChartLayoutType 类型常数之一。 |
| msoOrgChartLayoutAssistant |
| msoOrgChartLayoutBothHanging |
| msoOrgChartLayoutLeftHanging |
| msoOrgChartLayoutMixed |
| msoOrgChartLayoutRightHanging |
| msoOrgChartLayoutStandard |
expression.Layout
expression 必选。该表达式返回一个 DiagramNode 对象。
除非图示的 Type 属性为 msoDiagramTypeOrgChart 类型，否则此属性将产生错误。
应用于 Slide 和 SlideRange 对象的 Layout 属性。
返回或设置 PpSlideLayout 类型常数，该常数代表幻灯片版式。可读写。
| PpSlideLayout 可以是下列 PpSlideLayout 类型常数之一。 |
| 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 必选。该表达式返回上述对象之一。
以下示例更改新建图示的版式。
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本示例中，如果当前演示文稿的第一张幻灯片原来只有一个标题，则改变该幻灯片的版式以包含一个标题和一个副标题。
With ActivePresentation.Slides(1)
If .Layout = ppLayoutTitleOnly Then
.Layout = ppLayoutTitle
End If
End With