Добрый день, уважаемые. Прошу помощи в разработке скрипта для LibreOffice Calc - VB

Формулировка задачи:

Уважаемые, такая стоит задача:
а) требуется отслеживать перемещение по ячейкам в листе
б) загрузить картинку в компонент "Графический элемент управления"
Мне нужно, когда пользователь перемещается по ячейкам:
1) вернуть текущую строку
2) получить данные из столбца "C" и строки, на которой сейчас стоит курсор - путь к картинке (проверить, что он есть)
3) загрузить эту картинку в "Графический элемент управления" - он у меня называется Image1
проблема не в синтаксисе Basic-а (немного программировать умею), а именно в организации перехватов событий и.т.д
по первому пункту накопал рабочий код:

Sub AddChartDataListener()
    oCell1 = ThisComponent.getSheets().getByIndex(0).getCellRangeByName("A5:A6")
    oListener = CreateUnoListener("MyApp_", "com.sun.star.chart.XChartDataChangeEventListener")
    oCell1.addChartDataChangeEventListener(oListener)
End Sub

Sub MyApp_chartDataChanged(oEvent)
    dCell = ThisComponent.getSheets().getByIndex(0).GetCellByPosition(1,1)
    MsgBox dCell.String 'dCell.Value
    
End Sub

данный код выводит текст ячейки при редактировании диапазона, но как сделать для перемещения по ячейкам?
может кто поделится кодом?
или ссылками
Спасибо всем

Решение задачи: «Добрый день, уважаемые. Прошу помощи в разработке скрипта для LibreOffice Calc»

textual
                            Листинг программы 
                        

                            Option Explicit
Global oDocView
Global oKeyHandler
Sub RegisterKeyHandler
	oDocView = ThisComponent.getCurrentController
	oKeyHandler = _
	createUnoListener("MyApp_", "com.sun.star.awt.XKeyHandler")
					'
					writedbginfo oKeyHandler
					oDocView.addKeyHandler(oKeyHandler)
End Sub

Sub UnregisterKeyHandler
	oDocView.removeKeyHandler(oKeyHandler)
End Sub

Sub MyApp_disposing(oEvt)
	' здесь ничего не делается
End Sub

Function MyApp_KeyPressed(oEvt) As Boolean
	select case oEvt.KeyChar
	case "t", "a", "b", "u"
	MyApp_KeyPressed = True
	msgbox " клавиша """ & oEvt.KeyChar & """ не разрешена !"
	case else
	MyApp_KeyPressed = False
	end select
End Function

Function MyApp_KeyReleased(oEvt) As Boolean
	MyApp_KeyReleased = False
End Function

                        