Ler em inglês

Compartilhar via


Objeto ShapeNodes (Excel)

Uma coleção de todos os objetos ShapeNode especificado forma livre.

Comentários

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.

Exemplo

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

Métodos

Propriedades

Confira também

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.