Objeto ShapeNodes (PowerPoint)

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 os métodos BuildFreeforme ConvertToShape.

Exemplo

Use a propriedade Nodes 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 deve ser uma forma livre com pelo menos quatro nós.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

Use o método Insert 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 = ActivePresentation.Slides(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 = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

Confira também

Referência de modelo de objeto do PowerPoint

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.