Shapes.AddCanvas (Word)

Agrega un lienzo de dibujo a un documento.

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

Estos son los argumentos con nombre :

Left (Single) - Posición, en puntos, del borde izquierdo del lienzo de dibujo, con respecto al delimitador.

Top (Single) - Posición, en puntos, del borde superior del lienzo de dibujo, con respecto al delimitador.

Width (Single) - Ancho, en puntos, del lienzo de dibujo.

Height (Single) - Alto, en puntos, del lienzo de dibujo.

Optional arguments

Los siguientes argumentos son opcionales

Anchor (Range) - Objeto Range que representa el texto al que está enlazado el lienzo.