Shapes.BuildFreeform-Methode (PowerPoint)

Erstellt ein Freihandform-Objekt. Gibt ein FreeformBuilder -Objekt zurück, das die Freihandform so darstellt, wie sie erstellt wird.

Syntax

Ausdruck. BuildFreeform( _EditingType_, _X1_, _Y1_ )

expression Eine Variable, die ein Shapes-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
EditingType	Erforderlich	MsoEditingType	Die Bearbeitungseigenschaft des ersten Knotens.
X1	Erforderlich	Single	Die in Punkten gemessene horizontale Position des ersten Knotens in der Freihandform-Zeichnung relativ zum linken Folienrand.
Y1	Erforderlich	Single	Die in Punkten gemessene vertikale Position des ersten Knotens in der Freihandform-Zeichnung relativ zum oberen Folienrand.

Rückgabewert

FreeformBuilder

Hinweise

Verwenden Sie die AddNodes -Methode, um das Freihandobjekt Segmente hinzuzufügen. Nachdem Sie mindestens ein Segment hinzugefügt haben, können Sie die ConvertToShape -Methode verwenden, auf das FreeformBuilder -Objekt in ein Shape -Objekt umwandeln, die die geometrische Beschreibung besitzt, die Sie im FreeformBuilder -Objekt definiert haben.

Beispiel

In diesem Beispiel wird ein Freihandobjekt mit vier Segmenten in myDocument eingefügt.

    Set myDocument = ActivePresentation.Slides(1)
    With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
    X1:=360, Y1:=200) 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _ 
            X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300 
        .AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=200 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=480, Y1:=400 
        .AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _ 
            X1:=360, Y1:=200 
        .ConvertToShape 
    End With

Siehe auch

• Shapes-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.