ShapeRange.Distribute メソッド (PowerPoint)

  • [アーティクル]

指定された図形範囲の図形を等間隔に配置します。 図形を左右または上下に整列するか、図形があった元の場所またはページ全体に配置するかを指定できます。

構文

式。 Distribute( _DistributeCmd_, _RelativeTo_ )

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

パラメーター

名前 必須 / オプション データ型 説明
DistributeCmd 必須 MsoDistributeCmd 範囲の図形を左右または上下に整列するように指定します。
RelativeTo 必須 MsoTriState スライド全体の左右または上下全体に図形を配置するかどうかを指定します。

戻り値

なし

例

次の使用例は、myDocument のすべてのオートシェイプを含む図形範囲を定義し、次に、この範囲の図形を左右に整列させます。

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.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, msoFalse 
        End If 
    End If 
End With

関連項目

ShapeRange オブジェクト

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

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