次の方法で共有


CanvasShapes オブジェクト (Word)

CanvasShapes コレクションを取得するには、Shape オブジェクトまたは ShapeRange オブジェクトの CanvasItems プロパティを使用します。

注釈

図形を描画キャンバスに追加するには、CanvasShapes コレクションの AddCalloutAddConnectorAddCurve、AddLabelAddLineAddPictureAddPolylineAddShapeAddTextbox、AddTextEffectまたは BuildFreeform のメソッドを使用します。 次の使用例は、現在の文書に描画キャンバスを追加し、その描画キャンバスに 3 つの図形を追加します。

Sub AddCanvasShapes() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShapes As CanvasShapes 
 Dim shpCnvItem As Shape 
 
 'Adds a new canvas to the document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=50, Height:=75) 
 Set shpCanvasShapes = shpCanvas.CanvasItems 
 
 'Adds shapes to the CanvasShapes collection 
 With shpCanvasShapes 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=50, Height:=50 
 .AddShape Type:=msoShapeOval, _ 
 Left:=5, Top:=5, Width:=40, Height:=40 
 .AddShape Type:=msoShapeIsoscelesTriangle, _ 
 Left:=0, Top:=25, Width:=50, Height:=50 
 End With 
End Sub

CanvasShapes コレクション内の 1 つの図形を返すには、CanvasItems (index) を使用します。index は名前またはインデックス番号です。 次の使用例は、Line プロパティおよび Fill プロパティを設定し、描画キャンバス内の 3 番目の図形を垂直方向に反転します。

Sub CanvasShapeThree() 
 With ActiveDocument.Shapes(1).CanvasItems(3) 
 .Line.ForeColor.RGB = RGB(50, 0, 255) 
 .Fill.ForeColor.RGB = RGB(50, 0, 255) 
 .Flip msoFlipVertical 
 End With 
End Sub

各図形には、作成時に既定の名前が付けられます。 たとえば、文書に 3 つの異なる図形を追加すると、"Rectangle 2"、"Text Box 3"、"Oval 4" のように名前が付けられます。 既定の名前を参照したり、図形にわかりやすい名前を割り当てたりするには、 Name プロパティを使用します。

メソッド

プロパティ

関連項目

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

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