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 línea a la colección Shapes especificada.
Sintaxis
expresión. AddLine (BeginX, BeginY, EndX, EndY)
expresión Variable que representa un objeto Shapes.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| BeginX | Obligatorio | Variant | Coordenada X del punto inicial de la línea. |
| BeginY | Obligatorio | Variant | Coordenada Y del punto inicial de la línea. |
| EndX | Obligatorio | Variant | Coordenada X del punto final de la línea. |
| Endy | Obligatorio | Variant | Coordenada Y del punto final de la línea. |
Valor devuelto
Forma
Comentarios
Para los argumentos BeginX, BeginY, EndX y EndY , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad admitida por Microsoft Publisher (por ejemplo, "2,5 in").
Ejemplo:
En el siguiente ejemplo se agrega una nueva línea a la primera página de la publicación activa.
Dim shpLine As Shape
Set shpLine = ActiveDocument.Pages(1).Shapes.AddLine _
(BeginX:=144, BeginY:=144, _
EndX:=180, EndY:=72)
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.