Shapes.AddCanvas (Word)

Fügt einen Zeichenbereich zu einem Dokument hinzu.

AddCanvas (Left, Top, Width, Height, Anchor)

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

Arguments

Hier sind die benannte Argumente :

Left (Single) - Die Position (in Punkt) des linken Rands des Zeichenbereichs relativ zum Anker.

Top (Single) - Die Position (in Punkt) des oberen Rands des Zeichenbereichs relativ zum Anker.

Width (Single) - Die Breite des Zeichenbereichs in Punkt.

Height (Single) - Die Höhe des Zeichenbereichs in Punkt.

Optional arguments

Das folgendes Argument ist optional

Anchor (Range) - Ein Range -Objekt, das den Text darstellt, an den der Canvas gebunden ist.