Freigeben über

CanvasShapes-Objekt (Word)

  • Artikel

Verwenden Sie die CanvasItems-Eigenschaft eines Shape- oder ShapeRange-Objekts , um eine CanvasShapes-Auflistung zurückzugeben.

Hinweise

Verwenden Sie zum Hinzufügen von Shapes zu einem Zeichenbereich die folgenden Methoden der CanvasShapes-Auflistung : AddCallout, AddConnector, AddCurve, AddLabel, AddLine, AddPicture, AddPolyline, AddShape, AddTextbox, AddTextEffect oder BuildFreeform. Im folgenden Beispiel wird dem aktiven Dokument ein Zeichenbereich hinzugefügt, und anschließend werden dem Zeichenbereich drei Formen hinzugefügt.

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

Verwenden Sie CanvasItems (Index), wobei index der Name oder die Indexnummer ist, um eine einzelne Form in der CanvasShapes-Auflistung zurückzugeben. Im folgenden Beispiel werden die Eigenschaften Line und Fill festgelegt und die dritte Form in einem Zeichenbereich vertikal gespiegelt.

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

Jedes Shape erhält einen Standardnamen erstellt wird. Wenn Sie z. B. einem Dokument drei verschiedene Formen hinzufügen, können diese als Rechteck 2, Textfeld 3 und Oval 4 bezeichnet werden. Verwenden Sie die Name-Eigenschaft , um auf den Standardnamen zu verweisen oder einem Shape einen aussagekräftigeren Namen zuzuweisen.

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.