Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un nuevo objeto Shape que representa una autoforma a la colección Shapes especificada.
Sintaxis
expresión. AddShape (Type, Left, Top, Width, Height)
expresión Variable que representa un objeto Shapes.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Type | Obligatorio | MsoAutoShapeType | Tipo de autoforma que se va a dibujar. |
| Left | Obligatorio | Variant | Posición del borde izquierdo de la forma que representa la autoforma. |
| Top | Obligatorio | Variant | Posición del borde superior de la forma que representa la autoforma. |
| Width | Obligatorio | Variant | Ancho de la forma que representa la autoforma. |
| Height | Obligatorio | Variant | Alto de la forma que representa la autoforma. |
Valor devuelto
Forma
Comentarios
Para los argumentos Left, Top, Width y Height , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad compatible con Microsoft Publisher (por ejemplo, "2,5 in").
Ejemplo
En el siguiente ejemplo se agrega un rectángulo a la primera página de la publicación activa.
Dim shpShape As Shape
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _
(Type:=msoShapeRectangle, _
Left:=144, Top:=144, _
Width:=72, Height:=144)
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.