AutoLayout 属性

返回或设置一个 MsoTriState 常量，该常量确定图表中节点或连接符自动定位的位置。可读写。

MsoTriState 可为以下 MsoTriState 常量之一。

msoCTrue 不应用于本属性。

msoFalse 禁用图表的自动格式设置。

msoTriStateMixed 不应用于本属性。

msoTriStateToggle 不应用于本属性。

msoTrue 启用图表的自动格式设置。

expression.AutoLayout

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

示例

本示例在当前的文档中创建一个图表，并自动对节点或连接符进行定位。

Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer

    Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramPyramid, _
        Left:=10, _
        Top:=15, _
        Width:=400, _
        Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount

    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With

End Sub