Syntax
DrawFreeformPolygon
Remarks
Switches to page layout view and adds a default freeform drawing object in front of the text layer. A default freeform shape consists of a single line segment and is inserted at the upper-left corner of the current page. To change the freeform shape, you use the DrawSetPolyPoints statement.
Example
This example adds an N-shaped drawing object in front of the text layer by inserting a default freeform drawing object and then using DrawSetPolyPoints to change it. Because the lines in an N shape have four end points, eight elements must be assigned to the pointsArray$() array (four pairs of two values). End points are measured relative to the upper-left corner of the current page.
DrawFreeformPolygon Dim pointsArray$(4, 2) pointsArray$(1, 1) = "150 pt" pointsArray$(1, 2) = "200 pt" pointsArray$(2, 1) = "150 pt" pointsArray$(2, 2) = "100 pt" pointsArray$(3, 1) = "200 pt" pointsArray$(3, 2) = "200 pt" pointsArray$(4, 1) = "200 pt" pointsArray$(4, 2) = "100 pt" DrawSetPolyPoints 4, pointsArray$()
See Also
DrawCountPolyPoints(), DrawGetPolyPoints, DrawSetPolyPoints, FormatDrawingObject