返回或设置一个 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