Compartir a través de

Método CanvasShapes.AddShape (Word)

Agrega una autoforma a un lienzo de dibujo. Devuelve un objeto Shape que representa la autoforma.

Sintaxis

expresión. AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )

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

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Type Obligatorio Long El tipo de forma que se va a devolver. Puede ser cualquier constante MsoAutoShape.
Left Obligatorio Single La posición, medida en puntos, del borde izquierdo de la autoforma.
Top Obligatorio Single La posición, medida en puntos, del borde superior de la autoforma.
Width Obligatorio Single El ancho, medido en puntos, de la autoforma.
Height Obligatorio Single El alto, medido en puntos, de la autoforma.

Comentarios

Para cambiar el tipo de una autoforma que ha agregado, establezca la propiedad AutoShapeType.

Ejemplo:

En este ejemplo se crea un nuevo lienzo en el documento activo y se le agrega un círculo.

Sub NewCanvasShape() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShape As Shape 
 
 'Add a new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a circle to the drawing canvas 
 Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _ 
 Type:=msoShapeOval, Left:=25, Top:=25, _ 
 Width:=150, Height:=150) 
End Sub

Consulte también

CanvasShapes (colección)

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.

  • Last updated on