Nachtrag: Das Makro für den Zoomfaktor lässt sich einfach über den
Makrorecorder aufzeichnen:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
sub Zoom
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 ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:ZoomSlider", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ZoomSlider.CurrentZoom"
args2(0).Value = 80
args2(1).Name = "ZoomSlider.SnappingPoints"
args2(1).Value = Array()
args2(2).Name = "ZoomSlider.SvxMinZoom"
args2(2).Value = 20
args2(3).Name = "ZoomSlider.SvxMaxZoom"
args2(3).Value = 600
dispatcher.executeDispatch(document, ".uno:ZoomSlider", "", 0, args2())
end sub
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Das erstellt einen Zoom von 80% für das Fenster.
Gruß
Robert
--
Homepage: https://www.familiegrosskopf.de/robert
--
Liste abmelden mit E-Mail an: [email protected]
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
