Método Shapes.AddCanvas (Word)

Agrega un lienzo de dibujo a un documento. Devuelve un objeto Shape que representa el lienzo de dibujo y lo agrega a la colección Shapes .

Sintaxis

expresión. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

expresión requerida. Variable que representa un objeto Shapes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Left	Obligatorio	Single	Posición, en puntos, del borde izquierdo del lienzo de dibujo, en relación con el delimitador.
Top	Obligatorio	Single	Posición, en puntos, del borde superior del lienzo de dibujo, en relación con el delimitador.
Width	Obligatorio	Single	Ancho, en puntos, del lienzo de dibujo.
Height	Obligatorio	Single	Alto, en puntos, del lienzo de dibujo.
Anchor	Opcional	Variant	Objeto Range que representa el texto al que está enlazado el lienzo. Si se especifica Anchor, el delimitador se sitúa al principio del primer párrafo del intervalo de fijación. Si no se especifica este argumento, el intervalo se selecciona automáticamente y el lienzo se sitúa con relación a los bordes superior e izquierdo de la página.

Valor devuelto

Forma

Ejemplo

En el siguiente ejemplo se agrega un lienzo de dibujo a un nuevo documento y se da formato al lienzo de dibujo de modo que esté en línea con el texto; a continuación, se agregan dos formas al lienzo y se da formato a las propiedades de relleno y de línea.

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

Consulte también

Objeto de la colección de formas

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.