Objeto ShapeNodes (Excel)
Uma coleção de todos os objetos ShapeNode especificado forma livre.
Cada objeto ShapeNode representa um nó entre segmentos em uma forma livre ou um ponto de controle de um segmento curvo de uma forma livre. Você pode criar uma forma livre manualmente ou usando o BuildFreeform e ConvertToShape métodos.
Use a propriedade Nós do objeto Shape para retornar a coleção ShapeNodes . O exemplo a seguir exclui o nó quatro da forma três de myDocument. Para que esse exemplo funcione, a forma três precisa ser uma forma livre com pelo menos quatro nós.
Set myDocument = Worksheets(1)
myDocument.Shapes(3).Nodes.Delete 4
Use o Inserir método para criar um novo nó e adicioná-lo à coleção ShapeNodes. O exemplo a seguir adiciona um nó suave com um segmento curvo após o nó quatro da forma três de myDocument. Para que esse exemplo funcione, a forma três precisa ser uma forma livre com pelo menos quatro nós.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
.Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100
End With
Use Nós (índice), em que o índice é o número do índice do nó, para retornar um único objeto ShapeNode . Se o nó um da forma três em myDocument for um ponto de canto, o exemplo a seguir o tornará um ponto suave. Para que este exemplo funcione, a forma três precisa ser uma forma livre.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Nodes(1).EditingType = msoEditingCorner Then
.Nodes.SetEditingType 1, msoEditingSmooth
End If
End With
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.