CreateWithMouse Method Example

The following example creates an Oval by allowing the user to specify its size and position by creating it with the mouse.

Dim iOval As Object

Set iOval = Application.ActiveDocument.Page.BuildObject("oval")

iOval.CreateWithMouse