ShapeRange.Distribute 方法

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

语法

表达式.Distribute(DistributeCmd, RelativeTo)

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

参数

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

返回值
Nothing

示例

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

示例代码

示例代码
`let myShapes = ActivePresentation.Slides.Item(1).Shapes if(myShapes.Count > 1){ let numAutoShapes = 0 let autoShpArray = [] for(let i = 1; i <= myShapes.Count; i++){ if(myShapes.Item(i).Type == msoAutoShape){ numAutoShapes++ autoShpArray[i] = myShapes.Item(i).Name } } if(numAutoShapes > 1){ let asRange = myShapes.Range(autoShpArray) asRange.Distribute(msoDistributeHorizontally, msoFalse) } }`

let myShapes = ActivePresentation.Slides.Item(1).Shapes

if(myShapes.Count > 1){
    let numAutoShapes = 0
    let autoShpArray = []

    for(let i = 1; i <= myShapes.Count; i++){
        if(myShapes.Item(i).Type == msoAutoShape){
            numAutoShapes++
            autoShpArray[i] = myShapes.Item(i).Name
        }
    }

    if(numAutoShapes > 1){
        let asRange = myShapes.Range(autoShpArray)
        asRange.Distribute(msoDistributeHorizontally, msoFalse)
    }
}

请参阅