返回或设置 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