StickToCursor 方法示例

下列示例创建一个Rectangle对象，并指定创建时对象钉在光标上。

Dim iRect As Object

Set iRect = Application.ActiveDocument.Page.BuildObject("rect")

iRect.HorizontalPosition = 3#

iRect.VerticalPosition = 3#

iRect.StickToCursor