Реакция скрипта на перемещение фигуры в эксель

[OlegSmirnov]

Добрый день, программисты autoit.
Помогите разобраться.

Имеется файл xls.
Как заставить автоит-скрипт выдать сообщение "Фигура передвинута" при перемещении фигуры "Ромб 7" на листе эксель ?

(Название файла - 64573.xls )
То есть - если выделить фигуру мышкой, и переместить на новое место - скрипт выдаст сообщение "Фигура передвинута" .

 

[InnI]

OlegSmirnov [?]

выдать сообщение "Фигура передвинута" при перемещении фигуры

У фигуры есть координаты левого верхнего угла, ширина и высота. В цикле отслеживаете изменение данных свойств и принимаете решение - переместилась фигура или изменилась в размере или переместилась и изменила размер одновременно. А ещё фигуру можно повернуть ;)

#include <Excel.au3>

$oExcel = _Excel_Open()
$oBook = _Excel_BookOpen($oExcel, @ScriptDir & "\64573.xls")

$oBook.Sheets('Лист3').Select
$oShape = $oBook.ActiveSheet.Shapes("Ромб 7")

ConsoleWrite("X = " & $oShape.Left & @CRLF)
ConsoleWrite("Y = " & $oShape.Top & @CRLF)
ConsoleWrite("W = " & $oShape.Width & @CRLF)
ConsoleWrite("H = " & $oShape.Height & @CRLF)

_Excel_Close($oExcel)

Повторно привожу ссылку для самостоятельного изучения: Shape Object (Excel)

 

[OlegSmirnov]

Понял.
Обязательно изучу интересную ссылку для самостоятельного изучения.

Спасибо за толковый совет.