Método Shapes.BuildFreeform (Publisher)

  • Artículo

Genera un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre mientras se está generando.

Sintaxis

expresión. BuildFreeform (EditingType, X1, Y1)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
EditingType Obligatorio MsoEditingType Especifica el tipo de modificación del primer nodo. Puede ser una de las constantes MsoEditingType declaradas en la biblioteca de tipos de Microsoft Office.
X1 Obligatorio Variant Posición horizontal del primer nodo en el dibujo de forma libre respecto a la esquina superior izquierda de la página.
Y1 Obligatorio Variant Posición vertical del primer nodo en el dibujo de forma libre respecto a la esquina superior izquierda de la página.

Valor devuelto

Freeformbuilder

Ejemplo:

Para los argumentos X1 e Y1 , los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad admitida por Microsoft Publisher (por ejemplo, "2,5 in").

Utilice el método AddNodes para agregar segmentos a la forma libre. Después de agregar al menos un segmento a la forma libre, puede usar el método ConvertToShape para convertir el objeto FreeformBuilder en un objeto Shape que tenga la descripción geométrica definida en el objeto FreeformBuilder .

' Add a new freeform object. 
With ActiveDocument.Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
End With

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.