FreeformBuilder.ConvertToShape-Methode (Publisher)

Artikel
04/07/2023

Erstellt ein Shape, das den geometrischen des angegebenen FreeformBuilder -Objekts Charakteristika. Gibt ein Shape -Objekt, das die neue Form darstellt.

Syntax

Ausdruck. ConvertToShape

Ausdruck Eine Variable, die ein FreeformBuilder-Objekt darstellt.

Rückgabewert

Form

Bemerkungen

Sie müssen die AddNodes-Methode mindestens einmal auf ein FreeformBuilder-Objekt anwenden, bevor Sie die ConvertToShape-Methode verwenden. Andernfalls tritt ein Fehler auf.

Beispiel

In diesem Beispiel wird der ersten Seite in der aktiven Publikation eine Freihandform mit vier Scheitelpunkten hinzugefügt.

' 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

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.

Freigeben über