PowerPoint VBA教程:AutoFormat属性

设置或返回 MsoTriState 类型常数,该常数代图示的自动套用格式状态。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 不启用自动套用格式。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 启用自动套用格式。

expression.AutoFormat

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

以下示例创建一个图表并启用自动套用格式。


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

上页:PowerPoint VBA教程:AutoCorrect属性 下页:PowerPoint VBA教程:AutoLayout属性

PowerPoint VBA教程:AutoFormat属性

PowerPoint VBA教程:AutoLayout属性 PowerPoint VBA教程:AutoLength属性
PowerPoint VBA教程:AutoLoad属性 PowerPoint VBA教程:AutomationSecurity属性
PowerPoint VBA教程:AutoReverse属性 PowerPoint VBA教程:AutoRotateNumbers属性
PowerPoint VBA教程:AutoShapeType属性 PowerPoint VBA教程:AutoSize属性
PowerPoint VBA教程:AutoUpdate属性 PowerPoint VBA教程:BackColor属性
PowerPoint VBA教程:Background属性 PowerPoint VBA教程:BaseLineAlignment属性
PowerPoint VBA教程:BaselineOffset属性 PowerPoint VBA教程:BeginArrowheadLength属性
PowerPoint VBA教程:BeginArrowheadStyle属性 PowerPoint VBA教程:BeginArrowheadWidth属性
PowerPoint VBA教程:BeginConnected属性 PowerPoint VBA教程:BeginConnectedShape属性
PowerPoint VBA教程:BeginConnectionSite属性 PowerPoint VBA教程:Behaviors属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号