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.
Inserta un nuevo segmento después del nodo especificado del dibujo de forma libre.
Sintaxis
más sencilla.Insertar (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expresión Variable que representa un objeto ShapeNodes .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Index | Obligatorio | Long | Número del nodo después del cual se va a insertar el nuevo nodo. |
| SegmentType | Obligatorio | MsoSegmentType | Tipo de segmento que se va a agregar. Puede ser una de las constantes MsoSegmentType . |
| EditingType | Obligatorio | MsoEditingType | El tipo de edición del nuevo nodo. Puede ser una de las constantes MsoEditingType . |
| X1 | Obligatorio | Variant | Si el EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia horizontal desde la esquina superior izquierda de la página hasta el extremo del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia horizontal desde la esquina superior izquierda de la página hasta el primer punto de control del nuevo segmento. |
| Y1 | Obligatorio | Variant | Si EditingType del nuevo segmento es msoEditingAuto, este argumento especifica la distancia vertical desde la esquina superior izquierda de la página hasta el final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, este argumento especifica la distancia vertical desde la esquina superior izquierda de la página hasta el primer punto de control del nuevo segmento. |
| X2 | Opcional | Variant | Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal desde la esquina superior izquierda de la página hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
| Y2 | Opcional | Variant | Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical desde la esquina superior izquierda de la página hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
| X3 | Opcional | Variant | Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia horizontal desde la esquina superior izquierda de la página hasta el final del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique un valor para este argumento. |
| Y3 | Opcional | Variant | Si el EditingType del nuevo segmento es msoEditingCorner, este argumento especifica la distancia vertical desde la esquina superior izquierda de la página hasta el extremo del nuevo segmento. Si el parámetro EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento. |
Comentarios
Para los argumentos X1, Y1, X2, Y2, X3 e Y3 , los valores numéricos se evalúan en puntos; las cadenas pueden estar en cualquier unidad admitida por Publisher (por ejemplo, "2,5 in").
Ejemplo
En este ejemplo se agrega un nodo suave con un segmento curvado después del nodo número cuatro de la tercera forma de la publicación activa. La forma debe ser un dibujo de forma libre con al menos cuatro nodos.
With ActiveDocument.Pages(1).Shapes(3).Nodes
.Insert Index:=4, _
SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, _
X1:=210, Y1:=100
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.