Zkuste makro:
Sub form_prvek
jmeno_listu = ThisComponent.CurrentController.getActiveSheet.name ' v právě aktivním listě
list = ThisComponent.Sheets.getByName(jmeno_listu)
prvky = list.Drawpage.Forms 'zpřístupníme všechny formul.prvky
for i = 0 to prvky.count - 1
prvek = prvky.getByIndex(i) ' projdeme prvky po jednom
if prvek.hasByName("Políčko") then ' pokud je prvek pojmenován Políčko
objekt = prvek.getByName("Políčko") ' tak s ním budeme pracovat
endif
next i
list.getCellByPosition(1,1).value = objekt.value ' tady určujete kam se má zapsat (lze i getCellRangeByName("B2")
end sub
Pro textová pole zadáte objekt.text a do buňky .string
Makro najde v právě aktivním listě form.prvek s názvem políčko a předá do buňky hodnotu, kterou obsahuje.
Dalším makrem si pak můžete prohodit příkaz
objekt.value = list.getCellByPosition(1,1).value
a dostat hodnoty opět do form.prvku (třeba i z jiné buňky).
Bohužel s Base nepomůžu, neb ji neovládám
;o)
Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ