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 el tipo del segmento posterior al nodo especificado. Si el nodo es un punto de control de un segmento curvado, este método establece el tipo de segmento para esa curva; esto puede afectar al número total de nodos al insertar o eliminar nodos adyacentes.
Sintaxis
expresión. SetSegmentType (Index, SegmentType)
expresión Variable que representa un objeto ShapeNodes .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Index | Obligatorio | Long | Nodo cuyo tipo de segmento 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. |
| SegmentType | Obligatorio | MsoSegmentType | Especifica el tipo de segmento. Puede ser una de las constantes MsoSegmentType declaradas en la biblioteca de tipos de Microsoft Office. |
Ejemplo
En este ejemplo se cambian todos los segmentos rectos por segmentos curvados en la tercera forma de la publicación activa. La forma debe ser un dibujo de forma libre.
Dim intCount As Integer
With ActiveDocument.Pages(1).Shapes(3).Nodes
intCount = 1
Do While intCount <= .Count
If .Item(intCount).SegmentType = msoSegmentLine Then
.SetSegmentType _
Index:=intCount, SegmentType:=msoSegmentCurve
End If
intCount = intCount + 1
Loop
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.