Question

全部显示

应用于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必选。该表达式返回上述对象之一。

示例

应用于 DiagramNode 对象。

以下示例更改新建图示的版式。

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

应用于 Slide 对象。

本示例中，如果当前演示文稿的第一张幻灯片原来只有一个标题，则改变该幻灯片的版式以包含一个标题和一个副标题。

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