Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

Stránky 1

#1 Re: Calc » makro zamknout/odemknout list » 13. 7. 2023 13:26:20

gelo

Uz to mam smile

sub PROTECT_FIRST_SHEET()
oSheet = ThisComponent.Sheets.getByIndex(0)
oSheet.protect("MY PASSWORD")
end sub

#2 Calc » makro zamknout/odemknout list » 13. 7. 2023 11:31:43

gelo
Odpovědí: 1

Prosím poraďte, jak odemknout/zamknout list přes makro.

#3 Re: Calc » makro - format strany - VYŘEŠENO » 26. 5. 2016 11:50:29

gelo

Len doplnim makro na vytvorenie noveho stylu. Potom uz vyssie popisovane makro od lp. funguje a urobi, co som chcel.

sub a5
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Param"
args3(0).Value = "A5"
args3(1).Name = "Family"
args3(1).Value = 8
dispatcher.executeDispatch(document, ".uno:StyleNewByExample", "", 0, args3())
end sub

Dakujem za pomoc.

#4 Re: Calc » makro - format strany - VYŘEŠENO » 19. 5. 2016 07:52:17

gelo

toto sa mi zasekne pri riadku:

	oAktPageStyle = oPageStyles.getByName("A5")

s chybovou hlaskou:

Vyskytla sa výnimka
Type: com.sun.star.container.NoSuchElementException

#5 Re: Calc » makro - format strany - VYŘEŠENO » 18. 5. 2016 15:32:34

gelo

NO! Vysledkom je, ze v dokumente, ktory mam spracovat, vytvorim novy list. Do tohto listu skopirujem povodny obsah a stary list s udajmi zmazem... a vsetko pracuje, ako ma!
Ak sa v tom chce niekto povrtat, zahadny dokument mozem poslat mailom.

Dakujem za pomoc, "chyba byla odstranena, aniz byla nalezena".

#6 Re: Calc » makro - format strany - VYŘEŠENO » 18. 5. 2016 13:09:02

gelo

makro je:

doc = thisComponent
Dim stranka(0) as new com.sun.star.beans.PropertyValue
Dim velkost as new com.sun.star.awt.Size
velkost.Width = 14800 ' sirka
velkost.Height = 21000 ' vyska
stranka(0).Name = "PaperSize"
stranka(0).Value = velkost
doc.Printer = stranka()


novy list (nie Sesit) vytvaram takto:

doc = thisComponent
doc.Sheets.insertNewByName("katalog",1)


Je jedno, ci najprv nastavim rozmery strany a potom vytvorim list, alebo najprv list a potom rozmery - sprava sa to rovnako. Mam LO 5.0.3.2 na xubuntu.
Ide o to, ze by som potreboval z povodneho listu (A4) vybrat udaje do noveho, z ktoreho by mal byt vystup na A5. Potreboval by som to aplikovat na viacero suborov (nie listov).

#7 Re: Calc » makro - format strany - VYŘEŠENO » 18. 5. 2016 10:33:43

gelo

Prave to riesenie mi nastavuje len aktualny list sad
Novovytvoreny ma predvolene hodnoty.

#8 Calc » makro - format strany - VYŘEŠENO » 18. 5. 2016 08:22:49

gelo
Odpovědí: 15

Vie mi prosim niekto poradit, ako automaticky nastavit format strany (format papiera, okraje) pri vytvoreni noveho listu cez makro? Zaznam makra skonci na ".uno:PageFormatDialog". Dakujem.

Stránky 1

Zápatí

Používáme FluxBB