Propriedade ShapeNode.SegmentType (Excel)
Retorna um valor que indica se o segmento associado com o nó especificado é reto ou curvo. Se o nó especificado for um ponto de controle de um segmento curvo, essa propriedade retornará msoSegmentCurve. MsoSegmentType somente leitura.
Sintaxe
expressão. SegmentType
Expressão Uma variável que representa um objeto ShapeNode .
Comentários
Use o método SetSegmentType para definir o valor dessa propriedade.
Exemplo
Este exemplo altera todos os segmentos retos para segmentos curvos na forma três em myDocument. A forma três precisa ser um desenho de forma livre.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
n = 1
While n <= .Count
If .Item(n).SegmentType = msoSegmentLine Then
.SetSegmentType n, msoSegmentCurve
End If
n = n + 1
Wend
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.