Compartilhar via

Objeto ShapeNodes (Publisher)

  • Artigo

Uma coleção de todos os ShapeNode objetos de forma livre especificada. 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 Shapes.BuildFreeform e FreeformBuilder.ConvertToShape .

Comentários

Use os nós propriedade para retornar uma coleção ShapeNodes. Use Nós (índice), em que o índice é o número do índice do nó, para retornar um único objeto ShapeNode .

Use o Inserir método para criar um novo nó e adicioná-lo à coleção ShapeNodes.

Exemplo

O exemplo a seguir exclui o nó quatro na forma três no documento ativo. Para que esse exemplo funcione, a forma três deve ser uma forma livre com pelo menos quatro nós.

Sub DeleteShapeNode() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Delete Index:=4 
End Sub

O exemplo a seguir adiciona um nó suave com um segmento curvo após o nó quatro da forma três no documento ativo. Para que este exemplo funcione, a forma três deve ser uma forma livre com pelo menos quatro nós.

Sub AddCurvedSmoothSegment() 
 ActiveDocument.Pages(1).Shapes(3).Nodes.Insert _ 
 Index:=4, SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingSmooth, X1:=210, Y1:=100 
End Sub

Se o nó um na forma três no documento ativo for um ponto de canto, o exemplo a seguir torna um ponto suave. Para que esse exemplo funcione, a forma três deve ser uma forma livre.

Sub SetPointType() 
 With ActiveDocument.Pages(1).Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType Index:=1, EditingType:=msoEditingSmooth 
 End If 
 End With 
End Sub

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.