Dotaz: makro Calc libreoffice Verze: 6.1.5.2 Ubuntu 16.4

[vasek3]

Dobrý den . Máte zkušenosti s makry? Udělám obyčejný zápis do dvou buněk , nechám zapsat makro pod jménem. Dám spustit makro a libreoffice se zavře. Když kouknu do úpravy makra, mám za to že tam chybí main. Zde je zapsané makro. sub makro rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$C$13" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "StringName" args2(0).Value = "30" dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2()) rem ---------------------------------------------------------------------- dim args3(1) as new com.sun.star.beans.PropertyValue args3(0).Name = "By" args3(0).Value = 1 args3(1).Name = "Sel" args3(1).Value = false dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3()) rem ---------------------------------------------------------------------- dim args4(0) as new com.sun.star.beans.PropertyValue args4(0).Name = "StringName" args4(0).Value = "20" dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4()) rem ---------------------------------------------------------------------- dim args5(1) as new com.sun.star.beans.PropertyValue args5(0).Name = "By" args5(0).Value = 1 args5(1).Name = "Sel" args5(1).Value = false dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args5()) end sub

---

---

Odpovědi

[NN]

Muzes dat ten kod do pre/code tagu, aby se to dalo vubec cist?

[vasek3]

Doufám, že se mi to podařilo. Calc se zavře hned, jak dám spustit makro a to jaké koliv. Díky

sub kolo
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "100"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$E$7"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = "50"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"
args4(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args4())


end sub

[ZAH]

Mě to normálně funguje, zapíše na do aktuálně vybrané buňky(asi) 100 a potom do e7 50. Jestli je to správné chování nevím, to si posuď sám.

[vasek3]

zapsané to je . dokáži spustit makro jedině : makro - správce maker - vybrat makro a spustit. Dát makro - spustit celý program se zavře. A při opětovném spuštění se zeptá na obnovu. Není někde chyby v nastavení nebo v programu ?

[ZAH]

Příloha:

• Snímek z 2019-03-12 11-10-43.png (96942 bytů)

Melo by nabídnout výběr makra. Viz příloha

[vasek3]

Jakmile klepnu na tlačítko makro- spustit hned se zavře celý calc.

[ZAH]

To vypadá na problém v instalaci. Těžko ti poradím já to zkoušel na Fedora 29 s LibreOffice

Verze: 6.1.5.2
ID sestavení: 6.1.5.2-2.fc29
Vlákna CPU: 2; OS: Linux 4.20; Vykreslování UI: výchozí; VCL: gtk3; 
Národní prostředí: cs-CZ (cs_CZ.UTF-8); Calc: group threaded

[vasek3]

Přílohy:

• Snímek obrazovky pořízený 2019-03-16 14-27-48.png (269238 bytů)
• Snímek obrazovky pořízený 2019-03-16 14-28-12.png (269238 bytů)

posílám snímek obrazovky z chyby

[vasek3]

Dobrý den, vyřešeno! Byla programová chyba. Provedla se aktualizace. Vše je OK. Díky těm, co to dokázali opravit !!!! Vašek