Question

全部显示

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