Nota
L'accés a aquesta pàgina requereix autorització. Podeu provar d'iniciar la sessió o de canviar els directoris.
L'accés a aquesta pàgina requereix autorització. Podeu provar de canviar els directoris.
Representa la geometría de una forma libre mientras se está compilando.
Observaciones
Use el método BuildFreeform del objeto Shapes para devolver un objeto FreeformBuilder . Utilice el método AddNodes para agregar nodos a la forma libre. Use el método ConvertToShape para crear la forma definida en el objeto FreeformBuilder y agregarla a la colección Shapes .
Ejemplo
En el siguiente ejemplo se agrega una forma libre con cuatro segmentos a myDocument.
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
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.