Что нового

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

OlegSmirnov

Новичок
Сообщения
52
Репутация
0
Добрый день, программисты autoit.
Помогите разобраться.

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

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

Вложения

InnI

AutoIT Гуру
Сообщения
4 505
Репутация
1 225
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)
 
Автор
O

OlegSmirnov

Новичок
Сообщения
52
Репутация
0
Понял.
Обязательно изучу интересную ссылку для самостоятельного изучения.

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