Makro obrót strony wraz z obiektem LO Draw
: czw mar 10, 2022 3:44 pm
Dzień dobry,
W LibreOffice Draw potrzebuje makra które obróci stronę o 90 stopni w prawo wraz z obiektem znajdującym się na stronie, oczywiście musi zachować odpowiednie proporcje i pozostawić obiekt na stronie.
Przez Draw otwieram pdfa i chciałbym żeby ten obrót działał tak jak w programach przystosowanych do pdfa typu adobe czy przeglądarki chrome lub edge
Utworzyłem makro, które zmienia orientacje mojej strony i nic poza tym:( :
sub Main
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "AttributePageSize.Width"
args1(0).Value = 29700
args1(1).Name = "AttributePageSize.Height"
args1(1).Value = 21001
dispatcher.executeDispatch(document, ".uno:AttributePageSize", "", 0, args1())
end sub
Zapomniałem o rzeczy dość istotnej czyli chciałbym obracać jedną stronę (slajd tak jest to nazwane w drawie), bo teraz obraca mi wszystkie
W LibreOffice Draw potrzebuje makra które obróci stronę o 90 stopni w prawo wraz z obiektem znajdującym się na stronie, oczywiście musi zachować odpowiednie proporcje i pozostawić obiekt na stronie.
Przez Draw otwieram pdfa i chciałbym żeby ten obrót działał tak jak w programach przystosowanych do pdfa typu adobe czy przeglądarki chrome lub edge
Utworzyłem makro, które zmienia orientacje mojej strony i nic poza tym:( :
sub Main
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "AttributePageSize.Width"
args1(0).Value = 29700
args1(1).Name = "AttributePageSize.Height"
args1(1).Value = 21001
dispatcher.executeDispatch(document, ".uno:AttributePageSize", "", 0, args1())
end sub
Zapomniałem o rzeczy dość istotnej czyli chciałbym obracać jedną stronę (slajd tak jest to nazwane w drawie), bo teraz obraca mi wszystkie