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.
Establece la posición del nodo especificado. Según el tipo de modificación del nodo, este método puede afectar a la posición de nodos adyacentes.
Sintaxis
expresión. SetPosition (Index, X1, Y1)
expresión Variable que representa un objeto ShapeNodes .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Index | Obligatorio | Integer | Nodo cuya posición se va a establecer. Debe ser un número del 1 al número de nodos en la forma especificada; de lo contrario, se produce un error. |
| X1 | Obligatorio | Variant | Posición horizontal del nodo respecto a la esquina superior izquierda de la página. |
| Y1 | Obligatorio | Variant | Posición vertical del nodo respecto a la esquina superior izquierda de la página. |
Observaciones
Para los argumentos X1 e Y1 , 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 este ejemplo se mueve el segundo nodo de la tercera forma de la publicación activa 200 puntos hacia la derecha y 300 puntos hacia abajo. La forma debe ser un dibujo de forma libre.
Dim arrPoints As Variant
Dim intX As Integer
Dim intY As Integer
With ActiveDocument.Pages(1).Shapes(3).Nodes
arrPoints = .Item(2).Points
intX = arrPoints(1, 1)
intY = arrPoints(1, 2)
.SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 300
End With
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.