ShapeRange.Distribute メソッド (Publisher)

指定された図形範囲の図形を等間隔に配置します。

構文

式。分散 (DistributeCmd、 RelativeTo)

式ShapeRange オブジェクトを表す変数。

パラメーター

注釈

図形は、図形どうしの距離が等しくなるように配置されます。 与えられた領域内で等間隔に配置したときに図形が大きすぎて重なる場合は、図形どうしの重なりの量が等しくなるように配置されます。

RelativeTo パラメーターには、Microsoft Office タイプ ライブラリで宣言されている、次の MsoTriState クラスの定数のいずれかを指定できます。

RelativeTo が msoTrue の場合、2 つの外側の図形とページの端の間の距離が 1 つの図形と次の図形の間の距離と同じになるように図形が分散されます。 図形が重なる場合は、外側の 2 つの図形がページの端に移動されます。

RelativeTo が msoFalse の場合、2 つの外側の図形は移動されません。内側の図形の位置のみが調整されます。

このメソッドを呼び出しても図形の Z 方向の順序は変わりません。

例

次の使用例は、作業中の文書の最初のページのすべてのオートシェイプを含む図形範囲を定義し、その範囲の図形を水平方向に分散します。

' Number of shapes on the page. 
Dim intShapes As Integer 
' Number of AutoShapes on the page. 
Dim intAutoShapes As Integer 
' An array of the names of the AutoShapes. 
Dim arrAutoShapes() As String 
' A looping variable. 
Dim shpLoop As Shape 
' A placeholder variable for the range containing AutoShapes. 
Dim shpRange As ShapeRange 
 
With ActiveDocument.Pages(1).Shapes 
 ' Count all the shapes on the page. 
 intShapes = .Count 
 
 ' Proceed only if there's at least one shape. 
 If intShapes > 1 Then 
 intAutoShapes = 0 
 ReDim arrAutoShapes(1 To intShapes) 
 
 ' Loop through the shapes on the page and add the names 
 ' of any AutoShapes to an array. 
 For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.Type = msoAutoShape Then 
 intAutoShapes = intAutoShapes + 1 
 arrAutoShapes(intAutoShapes) = shpLoop.Name 
 End If 
 Next shpLoop 
 
 ' Proceed only if there's at least one AutoShape. 
 If intAutoShapes > 1 Then 
 ReDim Preserve arrAutoShapes(1 To intAutoShapes) 
 
 ' Create a shape range containing all the AutoShapes. 
 Set shpRange = .Range(Index:=arrAutoShapes) 
 
 ' Distribute the AutoShapes horizontally 
 ' in the space they already occupy. 
 shpRange.Distribute _ 
 DistributeCmd:=msoDistributeHorizontally, RelativeTo:=msoFalse 
 End If 
 End If 
End With 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。