Výše uvedené makro řeší přesně můj problém. A navíc jsem se ještě naučil přistupovat k ostatním prvkům formuláře(což jsem pravě nikde nemohl najit //spatne jsem hleda)
Proto moc děkuji!!
Dotaz vyřešen
Jednou z variant je nahradit datové pole za formátované pole (naformátovat jako datum), které lze propojit s jednou buňkou. Nevýhodou je, že přijdete o rozevírací kalendář.
Další možností je použít následující makro, které najde prvek pojmenovaný datum, zjistí jeho hodnotu a vloží ji do buńky jako text.
Sub zjisti_form_prvek
doc = ThisComponent
jmeno_listu = doc.CurrentController.getActiveSheet.name ' v právě aktivním listě
list = oDoc.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("datum") then ' pokud je prvek pojmenován datum
objekt = prvek.getByName("datum") ' tak s ním budeme pracovat
endif
next i
hodnota = objekt.text ' zjistíme hodnotu
list.getCellByPosition(1,2).string = hodnota ' B3 = datum z prvku
end sub
;o)
]]>