DrawFreeformPolygon

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