PowerPoint VBA教程:Distribute方法

在指定的形状范围内均匀分布形状。可以指定是水平还是垂直分布形状,以及是在整个幻灯片中还是在它们原来所在的空间内分布形状。

expression.Distribute(DistributeCmd, RelativeTo)

expression  必选。该表达式返回一个 ShapeRange对象。

DistributeCmd  必选。MsoDistributeCmd 类型。指定在该范围内的形状是水平分布还是垂直分布。

MsoDistributeCmd 可以是下列 MsoDistributeCmd 类型常数之一。
msoDistributeHorizontally
msoDistributeVertically

RelativeTo  必选。MsoTriState 类型。决定形状在幻灯片的整个水平或垂直空间上是否均匀分布。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse 在形状原来所在范围的水平或垂直空间内分布形状。
msoTriStateMixed
msoTriStateToggle
msoTrue 在幻灯片的整个水平或垂直空间上均匀分布形状。

VBA示例

本示例定义包含在myDocument 上的所有自选图形的形状范围,然后在该范围内水平分布这些形状。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
        numAutoShapes = 0
        ReDim autoShpArray(1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).Type = msoAutoShape Then
                numAutoShapes = numAutoShapes + 1
                autoShpArray(numAutoShapes) = .Item(i).Name
            End If
        Next
        If numAutoShapes > 1 Then
            ReDim Preserve autoShpArray(1 To numAutoShapes)
            Set asRange = .Range(autoShpArray)
            asRange.Distribute msoDistributeHorizontally, msoFalse
        End If
    End If
End With

上页:PowerPoint VBA教程:DiscardConflict Method 下页:PowerPoint VBA教程:DoVerb方法

PowerPoint VBA教程:Distribute方法

PowerPoint VBA教程:DoVerb方法 PowerPoint VBA教程:DrawLine方法
PowerPoint VBA教程:Duplicate方法 PowerPoint VBA教程:EndConnect方法
PowerPoint VBA教程:EndDisconnect方法 PowerPoint VBA教程:EndNamedShow方法
PowerPoint VBA教程:EndReview方法 PowerPoint VBA教程:EraseDrawing方法
PowerPoint VBA教程:Exit方法 PowerPoint VBA教程:Export方法
PowerPoint VBA教程:Find方法 PowerPoint VBA教程:FindBySlideID方法
PowerPoint VBA教程:FindFirstAnimationFor方法 PowerPoint VBA教程:FindFirstAnimationForClick方法
PowerPoint VBA教程:First方法 PowerPoint VBA教程:FitToPage方法
PowerPoint VBA教程:Flip方法 PowerPoint VBA教程:Follow方法
PowerPoint VBA教程:FollowHyperlink方法 PowerPoint VBA教程:GotoNamedShow方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号