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
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.