Отслеживание в цикле изменения свойств фигуры эксель

#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)

#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)

Local $x = $oShape.Left
Local $y = $oShape.Top
Local $w = $oShape.Width
Local $h = $oShape.Height

While 1
   _Check($x, $oShape.Left)
   _Check($y, $oShape.Top)
   _Check($w, $oShape.Width)
   _Check($h, $oShape.Height)
   Sleep(10)
WEnd

Func _Check(ByRef $variable, $property)
   if $variable <> $property Then
	  ConsoleWrite("Фигура изменилась!" & @CRLF)
	  $variable = $property
   EndIf
EndFunc

_Excel_Close($oExcel)