Page.Shapes プロパティ (Publisher)

指定した文書内のすべての Shape オブジェクトを表す Shapes コレクションを返します。 このコレクションには、描画、図形、図、OLE オブジェクト、ActiveX コントロール、テキスト オブジェクト、および吹き出しを含めることができます。

構文

式。図形

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

注釈

コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

例

次の使用例は、作業中の文書の最初のページに四角形を追加します。

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

次の使用例は、作業中の文書内のすべての図形に塗りつぶしのテクスチャを設定します。 次の使用例は、作業中の文書に少なくとも 1 つの図形があることを前提としています。

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

次の使用例は、作業中の文書内の最初の図形に影を設定します。 次の使用例は、作業中の文書に少なくとも 1 つの図形があることを前提としています。

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

次の使用例は、作業中の文書の先頭ページにある図形の数を数えます。 次の使用例は、作業中の文書に少なくとも 1 つの図形があることを前提としています。

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
End Sub

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

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