StickToCursor方法示例
2015-12-15 22:24:12   来源：   评论：0 点击：

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

Dim iRect As Object

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

iRect.HorizontalPosition = 3#

iRect.VerticalPosition = 3#

iRect.StickToCursor