ShapeRange.Distribute 方法 (Word)

在指定的圖案範圍內平均分配圖案。 .

語法

expression。 Distribute( _Distribute_ , _RelativeTo_ )

需要 expression。 代表 ShapeRange 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Distribute	必要	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 支援與意見反應。