Propiedad ShapeNode.SegmentType (Publisher)

Devuelve una constante MsoSegmentType que indica si el segmento asociado al nodo especificado es recto o curvado. Solo lectura.

Sintaxis

expresión. SegmentType

expresión Variable que representa un objeto ShapeNode .

Valor devuelto

MsoSegmentType

Observaciones

El valor de la propiedad SegmentType puede ser una de las constantes MsoSegmentType declaradas en la biblioteca de tipos de Microsoft Publisher.

Si el nodo especificado es un punto de control de un segmento curvo, esta propiedad devuelve msoSegmentCurve.

Utilice el método SetSegmentType para establecer el valor de esta propiedad.

Ejemplo

En este ejemplo se cambian todos los segmentos rectos a segmentos curvados en la primera forma de la primera página de la publicación activa. Para que funcione el ejemplo, la forma especificada debe ser un dibujo de forma libre.

Sub ChangeSegmentTypes() 
 Dim intNode As Integer 
 With ActiveDocument.Pages(1).Shapes(1).Nodes 
 intNode = 1 
 Do While intNode <= .Count 
 If .Item(intNode).SegmentType = msoSegmentLine Then 
 .SetSegmentType Index:=intNode, _ 
 SegmentType:=msoSegmentCurve 
 End If 
 intNode = intNode + 1 
 Loop 
 End With 
End Sub

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.