Propriedade ShapeNode.SegmentType (Publisher)

Retorna uma constante MsoSegmentType que indica se o segmento associado ao nó especificado é reto ou curvo. Somente leitura.

Sintaxe

expressão. SegmentType

Expressão Uma variável que representa um objeto ShapeNode .

Valor de retorno

MsoSegmentType

Comentários

O valor da propriedade SegmentType pode ser uma das constantes MsoSegmentType declaradas na biblioteca de tipos do Microsoft Publisher.

Se o nó especificado for um ponto de controle de um segmento curvo, essa propriedade retornará msoSegmentCurve.

Use o método SetSegmentType para definir o valor dessa propriedade.

Exemplo

Este exemplo altera todos os segmentos retos para segmentos curvos na primeira forma da publicação ativa. Para que o exemplo funcione, essa forma deve ser um desenho em forma livre.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.