PowerPoint VBA教程:AutoLayout属性

设置或返回MsoTriState 类型常数,该常数代表图示的组件是否自动排列。可读写。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 图示的组件不自动排列。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 图示的组件自动排列。

expression.AutoLayout

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 places the diagram nodes and
    'converts pyramid diagram to radial diagram
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With
End Sub

上页:PowerPoint VBA教程:AutoFormat属性 下页:PowerPoint VBA教程:AutoLength属性

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属性 PowerPoint VBA教程:Black Property
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号