[Libreoffice-ux-advise] [Bug 91909] Uno commands for slide navigation and slide sorting

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=91909

tommy27 <barta at quipo.it> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
                 CC|                            |barta at quipo.it
     Ever confirmed|0                           |1

--- Comment #1 from tommy27 <barta at quipo.it> ---
you are right. UNO commands for slide sorting would be a bless.
status NEW.

In the meantime, you can use this macro to move a slide to the end of the
presentation, and assign it to a toolbar custom button.

here's the code (i think it can be tweaked to obtain ad least a MoveSlideToTop
but I'm not a macro expert)

Sub MoveSlideToEnd

oDoc = ThisComponent
opages = oDoc.drawpages
oController = oDoc.CurrentController
oCurrentPage = oController.CurrentPage
nIndex = oCurrentPage.Number - 1
oDispatch = createUnoService( "com.sun.star.frame.DispatchHelper")
oProvider = oController.Frame
oDispatch.executeDispatch(oProvider, ".uno:Copy","", 0, Array())
oPage = opages.getByIndex(opages.Count() - 1)
oController.setCurrentPage(oPage)
oDispatch.executeDispatch(oProvider, ".uno:Paste", "", 0, Array())
opages.remove(oCurrentPage)
oController.setCurrentPage(opages(nIndex))

End Sub

-- 
You are receiving this mail because:
You are on the CC list for the bug.