Question

全部显示

设置或返回MsoTriState 类型常数，该常数代表图示的组件是否自动排列。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue 不应用于此属性。

msoFalse图示的组件不自动排列。

msoTriStateMixed 不应用于此属性。

msoTriStateToggle 不应用于此属性。

msoTrue图示的组件自动排列。

expression.AutoLayout

expression必选。该表达式返回“应用于”列表中的对象之一。

示例

以下示例在幻灯片中添加一个图示，并将该图示转换为射线图，然后自动排列图示的节点。

Sub ConvertPyramidDiagram()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    'Adds pyramid diagram and first child node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Adds three additional nodes
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

    'Automatically places the diagram nodes and
    'converts pyramid diagram to radial diagram
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With

End Sub