Re: [de-discuss] Seitenvorschau im, Writer: Makro uno:Zoom: es fehlt Angabe der Anzahl Seiten (Columns)

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: discuss+unsubscribe@de.libreoffice.org
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