Word VBA教程:AutoLayout属性

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

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue 不用于该属性。
msoFalse 禁用自动版式设置。
msoTriStateMixed 不用于该属性。
msoTriStateToggle 不用于该属性。
msoTrue 自动设置图表中顶点和连接符的位置。

expression.AutoLayout

expression   必需。该表达式返回一个Diagram对象。

VBA示例

本示例在当前文档中创建一个图表,并自动设置顶点和连接符的位置。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号