{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Лист1"],"not_rendered":{"charts":0,"images":2,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Лист1","index":0,"n_rows":14,"n_cols":3,"rows_kept":14,"cut":false,"hidden":false,"merged":[]}
["Option Explicit",null,"End Sub"]
[null,"Public TimerID As Long"]
["Private Type POINTAPI",null,"Public Sub TimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long)"]
["        x As Long","Sub mAdr()","Call mAdr"]
["        y As Long","Dim mPos As POINTAPI, mRes As Long, s$","End Sub"]
["End Type","On Error Resume Next"]
[" ","   mRes = GetCursorPos(mPos)","Sub StartTimer()"]
["Private Declare Function GetCursorPos Lib \"user32.dll\" (lpPoint As POINTAPI) As Long","   s = ActiveWindow.RangeFromPoint(x:=mPos.x, y:=mPos.y).Resize(4, 3).Address","TimerID = SetTimer(0, 0, 1, AddressOf TimerProc)"]
["Private Declare Function SetTimer Lib \"user32.dll\" ","If mRes <> 0 Then","End Sub"]
["Private Declare Function KillTimer Lib \"user32.dll\" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long","   Sheets(1).Shapes(\"Picture 5\").DrawingObject.Formula = \"=\" & s"]
["(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long","   Sheets(1).Shapes(\"Picture 5\").DrawingObject.ShapeRange.Left = mPos.x","Sub StopTimer()"]
[null,"   Sheets(1).Shapes(\"Picture 5\").DrawingObject.ShapeRange.Top = mPos.y","If TimerID > 0 Then KillTimer 0, TimerID"]
[null,"   '[a1] = s","End Sub"]
[null,"End If"]