Objeto ShapeNodes (Publicador)

Una colección de todos los ShapeNode objetos en la forma libre. 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 mediante los métodos Shapes.BuildFreeform y FreeformBuilder.ConvertToShape .

Observaciones

Utilice los nodos propiedad para devolver la colección ShapeNodes. Use Nodes (index), donde index es el número de índice del nodo, para devolver un único objeto ShapeNode .

Uso de Insertar método para crear un nuevo nodo y agregarlo a la colección ShapeNodes.

Ejemplo

En el ejemplo siguiente se elimina el nodo cuatro de la forma tres del documento activo. Para que funcione este ejemplo, la forma tres debe ser una forma libre con cuatro nodos como mínimo.

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

En el ejemplo siguiente se agrega un nodo suave con un segmento curvo después del nodo cuatro de la forma tres del documento activo. Para que funcione este ejemplo, la forma tres debe ser una forma libre con cuatro nodos como mínimo.

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

Si el nodo uno de la forma tres del documento activo es un punto de esquina, en el siguiente ejemplo se convierte en un punto suave. Para que funcione este ejemplo, la forma tres debe ser una forma libre.

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

• Delete
• Insert
• Elemento
• SetEditingType
• SetPosition
• SetSegmentType

Propiedades

• Application
• Count
• Parent

Vea también

• Referencia del modelo de objetos de Publisher

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.