PowerPoint VBA教程:Layout属性

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

VBA示例

应用于 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

上页:PowerPoint VBA教程:LastSlideViewed属性 下页:PowerPoint VBA教程:LayoutDirection属性

PowerPoint VBA教程:Layout属性

PowerPoint VBA教程:LayoutDirection属性 PowerPoint VBA教程:Left属性
PowerPoint VBA教程:LeftMargin属性 PowerPoint VBA教程:Length属性
PowerPoint VBA教程:Levels属性 PowerPoint VBA教程:Line属性
PowerPoint VBA教程:LineRuleAfter属性 PowerPoint VBA教程:LineRuleBefore属性
PowerPoint VBA教程:LineRuleWithin属性 PowerPoint VBA教程:LinkFormat属性
PowerPoint VBA教程:Loaded属性 PowerPoint VBA教程:LockAspectRatio属性
PowerPoint VBA教程:LoopSoundUntilNext属性 PowerPoint VBA教程:LoopUntilStopped属性
PowerPoint VBA教程:Magenta Property PowerPoint VBA教程:MainSequence属性
PowerPoint VBA教程:MarginBottom属性 PowerPoint VBA教程:MarginLeft属性
PowerPoint VBA教程:MarginRight属性 PowerPoint VBA教程:MarginTop属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号