Могу ли я увеличить число с помощью макроса в LibreOffice Impress?

Question

Я хочу сделать счетчик с Libreoffice Impress.

Каждый раз, когда я нажимаю на прямоугольник, число внутри увеличивается.

      Dim Doc As Object
Dim Page As Object 
Dim Rect As Object 

Doc = ThisComponent
Page = Doc.drawPages.getByName("Test")
Rect = Page.getByIndex(0)


Rect.String = CInt(Rect.String) + 1

Работает везде, кроме режима презентации.

Можно ли заставить его работать в режиме презентации?