Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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 (Índice, 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.