Show All

AutoLayout Property

Returns or sets an MsoTriState constant that determines the automatic positioning of the nodes and connectors in a diagram. Read/write.

expression   Required. An expression that returns a Diagram object.

Example

This example creates a diagram in the current document and automatically positions the nodes and connectors.

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

    'Add a pyramid diagram to current document and first child node
    Set shpDiagram = ThisDocument.Shapes.AddDiagram( _
        Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Add three child node
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount

    'Enable automatic positioning of the diagram nodes
    'and convert diagram to a radial diagram
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With

End Sub