通过

ShapeRange.Distribut 方法 (PowerPoint)

  • 项目

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

语法

expression. Distribute( _DistributeCmd_, _RelativeTo_ )

表达 一个代表 ShapeRange 对象的变量。

参数

名称 必需/可选 数据类型 说明
DistributCmd 必需 MsoDistributeCmd 指定该范围内的形状是水平分布还是垂直分布。
RelativeTo 必需 MsoTriState 确定形状在幻灯片的整个水平或垂直空间上是否均匀分布。

返回值

无

示例

本示例定义包含在 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

另请参阅

绘图对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。