Макрос. Действия мыши.

[Roman_engineer]

Надо расположить некоторые объекты относительно точки указанной курсором мыши.
Как в макросе обработать клик мыши и получить координаты точки клика?

 

[lev]

Примерно так:

Sub click()
 ActiveDocument.GetUserClick x#, y#, Shift&, 10, False, cdrCursorWinCross
 ActiveLayer.CreateEllipse2 x, y, 0.2
End Sub

 

[_MBK_]

Вот как то примерно так

If ActiveDocument.GetUserClick(x, y, i, -1, Snap:=False, CursorShape:=313) Then      Exit Sub