Compartir a través de

Objeto ShapeNodes (Excel)

  • Artículo

Colección de todos los objetos ShapeNode de especificado forma libre.

Comentarios

Cada objeto ShapeNode representa un nodo entre los segmentos de una forma libre o un punto de control de un segmento curvo de una forma libre. Puede crear una forma libre manualmente o utilizando el BuildFreeform y ConvertToShape métodos.

Ejemplo:

Utilice la propiedad Nodes del objeto Shape para devolver la colección ShapeNodes . En el siguiente ejemplo se elimina el nodo cuatro de la forma tres de myDocument. Para que este ejemplo funcione, la forma tres debe ser una forma libre con, al menos, cuatro nodos.

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).Nodes.Delete 4

Uso de Insertar método para crear un nuevo nodo y agregarlo a la colección ShapeNodes. En el siguiente ejemplo se agrega un nodo suave con un segmento curvado después del nodo cuatro de la forma tres en myDocument. Para que este ejemplo funcione, la forma tres debe ser una forma libre con, al menos, cuatro nodos.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3).Nodes 
 .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 
End With

Use Nodes (index), donde index es el número de índice del nodo, para devolver un único objeto ShapeNode . Si el nodo uno de la forma tres de myDocument es una esquina, el siguiente ejemplo lo convierte en un punto suave. Para que este ejemplo funcione, la forma tres debe ser una forma libre.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(3) 
 If .Nodes(1).EditingType = msoEditingCorner Then 
 .Nodes.SetEditingType 1, msoEditingSmooth 
 End If 
End With

Métodos

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.