Método ShapeNodes.SetSegmentType (Publisher)

Define o tipo de segmento que acompanha o nó especificado. Se o nó for um ponto de controle de um segmento curvo, este método definirá o tipo de segmento dessa curva; isso pode afetar o número total de nós durante a inserção ou exclusão de nós adjacentes.

Sintaxe

expressão. SetSegmentType (Index, SegmentType)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Obrigatório	Long	O nó cujo tipo de segmento deve ser definido. É necessário que este valor seja um número entre 1 e o número de nós da forma especificada; caso contrário, ocorrerá um erro.
SegmentType	Obrigatório	MsoSegmentType	Especifica o tipo de segmento. Pode ser uma das constantes MsoSegmentType declaradas na biblioteca de tipos do Microsoft Office.

Exemplo

Este exemplo altera todos os segmentos retos para segmentos curvos na terceira forma da publicação ativa. A forma deve ser um desenho de forma livre.

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 

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.