Document.Shapes プロパティ (Word)

指定したドキュメント内のすべての Shape オブジェクトを表す Shapes コレクションを返します。 読み取り専用です。

構文

式。図形

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

注釈

このコレクションには、描画、図形、図、OLE オブジェクト、ActiveX コントロール、テキスト オブジェクト、および吹き出しを含めることができます。 コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

Shapes プロパティを文書に適用する場合は、ヘッダーとフッターを除き、文書のメイン テキスト ストーリー内のすべての Shape オブジェクトを返します。

例

次の使用例は、新しい文書を作成し、それに幅 100 ポイント、高さ 50 ポイントの四角形を追加し、四角形の左上隅をページの左端から 5 ポイント、上端から 25 ポイントに配置します。

Set myDoc = Documents.Add 
myDoc.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

次の使用例は、作業中の文書にあるすべての図形に対して、塗りつぶしのテクスチャを設定します。

For Each s in ActiveDocument.Shapes 
 s.Fill.PresetTextured msoTextureOak 
Next s

次の使用例は、作業中の文書の最初の図形に影を追加します。

Set myShape = ActiveDocument.Shapes(1) 
myShape.Shadow.Type = msoShadow6

関連項目

ドキュメント オブジェクト

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

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