FreeformBuilder Interface
Represents the geometry of a freeform while it is being built.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
<GuidAttribute("91493478-5A91-11CF-8700-00AA0060263B")> _
Public Interface FreeformBuilder
'Usage
Dim instance As FreeformBuilder
[GuidAttribute("91493478-5A91-11CF-8700-00AA0060263B")]
public interface FreeformBuilder
Examples
Use the BuildFreeform(MsoEditingType, Single, Single) method to return a FreeformBuilder object. Use the AddNodes(MsoSegmentType, MsoEditingType, Single, Single, Single, Single, Single, Single) method to add nodes to the freefrom. Use the ConvertToShape() method to create the shape defined in the FreeformBuilder object and add it to the CanvasShapes collection. The following example adds a freeform with four segments to myDocument.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With