Question

在指定图形区域中平均分布图形。可选择纵向分布或横向分布，也可选择将各图形分布于整个页面还是仅限于原先占据的空间。

expression.Distribute(Distribute,RelativeTo)

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

DistributeMsoDistributeCmd，必需。

MsoDistributeCmd 可以是下列MsoDistributeCmd 常量之一。

msoDistributeHorizontally

msoDistributeVertically

RelativeTo必需，Long 类型。值为 True 表示将图形均布在整个页面的横向或者纵向空间。值为 False 表示在图形原来占有的横向或者纵向空间上分布该图形。

示例

本示例可实现的功能为：定义一个图形区域，该区域包含活动文档中所有的自选图形，再将各图形水平分布在此区域内。

With ActiveDocument.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, False
 End If
 End If
End With