Shapes.AddCanvas-Methode (Word)

Artikel
04/07/2023

Fügt einen Zeichenbereich zu einem Dokument hinzu. Gibt ein Shape-Objekt zurück, das den Zeichenbereich darstellt, und fügt es der Shapes-Auflistung hinzu.

Syntax

Ausdruck. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

Ausdruck: Erforderlich. Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Left	Erforderlich	Single	Die Position des linken Rands des Zeichenbereichs in Punkt relativ zum Anker.
Top	Erforderlich	Single	Die Position des oberen Rands des Zeichenbereichs in Punkt relativ zum Anker.
Width	Erforderlich	Single	Die Breite des Zeichenbereichs in Punkt.
Height	Erforderlich	Single	Die Höhe des Zeichenbereichs in Punkt.
Anchor	Optional	Variant	Ein Range-Objekt , das den Text darstellt, an den die Canvas gebunden ist. Wenn Anchor angegeben ist, wird der Anker am Anfang des ersten Absatzes im Verankerungsbereich positioniert. Wenn dieses Argument nicht angegeben wird, wird der Verankerungsbereich automatisch ausgewählt und der Zeichenbereich wird relativ zum oberen und linken Rand der Seite positioniert.

Rückgabewert

Form

Beispiel

Im folgenden Beispiel wird einem neuen Dokument ein Zeichenbereich hinzugefügt und auf einer Linie mit dem Text ausgerichtet. Anschließend werden dem Zeichenbereich zwei Formen hinzugefügt und die Füllungs- und Linieneigenschaften festgelegt.

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

Siehe auch

Shapes Collection Object

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.

Share via