図形オブジェクト (発行元)

文書のページ上のすべての図形を表す Shape オブジェクトのコレクションです。 各 Shape オブジェクトは、オートシェイプ、フリー フォームの描画レイヤーのオブジェクト、OLE オブジェクト、または図を表します。

注:

文書上の図形のサブセットを操作する場合 (たとえば、文書上のオートシェイプのみ、または選択した図形のみに何らかの操作を行う) 場合は、作業する図形を含む ShapeRange コレクションを構築する必要があります。

注釈

Page.Shapes プロパティを使用して、Shapes コレクションを返します。 単一の Shape オブジェクトを返すには、Shapes (index) を使用します。ここで、index はインデックス番号です。

注:

文書内のすべての図形に対して同時に何らかの操作 (削除やプロパティの設定など) を行う場合は、Range メソッドを使用して、Shapes コレクション内のすべての図形を含む ShapeRange オブジェクトを作成し、適切なプロパティまたはメソッドを ShapeRange オブジェクトに適用します。

Shapes コレクションの次のいずれかのメソッドを使用して、文書に図形を追加し、新しく作成した図形を表す Shape オブジェクトを返します。

例

次の使用例は、作業中の文書のすべての図形を選択します。

Sub SelectAllShapes() 
    ActiveDocument.Pages(1).Shapes.SelectAll 
End Sub

次の例では、作業中の文書に新しい図形を追加します。

Sub AddNewShape() 
    ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _ 
        Left:=50, Top:=50, Width:=100, Height:=200 
End Sub

次の使用例は、作業中の文書の最初のページの 1 番目の図形を左右に反転します。

Sub FlipShape() 
    ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal 
End Sub

メソッド

プロパティ

関連項目

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

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

  • Last updated on