通过

ShapeRange.Distribut 方法 (Word)

  • 项目

在指定的形状范围内均匀分布形状。 .

语法

expression。 Distribute( _Distribute_ , _RelativeTo_ )

expression 是必需的。 一个代表 ShapeRange 对象的变量。

参数

名称 必需/可选 数据类型 说明
分发 必需 MsoDistributeCmd 指定图形是横向分布还是纵向分布。
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

另请参阅

ShapeRange 集合对象

支持和反馈

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