Und noch ein Nachtrag:
Makro, das die Ansicht je nach Zoom umschaltet
SUB Seitenuebersicht
DIM oDocument AS OBJECT, oDispatcher AS OBJECT
DIM inZoomMulti AS INTEGER, inZoomDefault AS INTEGER
DIM Array()
DIM Array1(0) AS NEW com.sun.star.beans.PropertyValue
inZoomMulti = 40
inZoomDefault = 100
oDocument = ThisComponent.CurrentController.Frame
IF ThisComponent.CurrentController.ViewSettings.ZoomValue > 80 THEN
oDispatcher =
createUnoService("com.sun.star.frame.DispatchHelper")
oDispatcher.executeDispatch(oDocument, ".uno:MultiplePagesPerRow", "",
0,Array())
Array1(0).Name = "Zoom.Value"
Array1(0).Value = inZoomMulti
oDispatcher.executeDispatch(oDocument, ".uno:Zoom", "", 0,
Array1())
ELSE
oDispatcher =
createUnoService("com.sun.star.frame.DispatchHelper")
oDispatcher.executeDispatch(oDocument, ".uno:SinglePagePerRow", "",
0,Array())
Array1(0).Name = "Zoom.Value"
Array1(0).Value = inZoomDefault
oDispatcher.executeDispatch(oDocument, ".uno:Zoom", "", 0,
Array1())
END IF
END SUB
Anzahl der Seiten nebeneinander gibt es wohl nicht. Das scheinen maximal
4 Seiten zu sein.
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/discuss/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
