设置或返回 MsoTriState 类型常数,该常数代图示的自动套用格式状态。可读写。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue 不应用于此属性。 |
msoFalse 不启用自动套用格式。 |
msoTriStateMixed 不应用于此属性。 |
msoTriStateToggle 不应用于此属性。 |
msoTrue 启用自动套用格式。 |
expression.AutoFormat
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 formats the diagram nodes and
'converts pyramid diagram to radial diagram
With dgnNode.Diagram
.AutoFormat = msoTrue
.Convert Type:=msoDiagramRadial
End With
End Sub