https://bugs.documentfoundation.org/show_bug.cgi?id=91909
tommy27 <[email protected]> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW CC| |[email protected] Ever confirmed|0 |1 --- Comment #1 from tommy27 <[email protected]> --- 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 the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
