[Solved] Impress macro to move selected slide to last

[Tommy]

is there any way to accomplish that?
having to manually drag a selected slide to the last position can be annoying if you have a very long presentation

a macro to directly move that slide to the last position would be a time-saver.

[F3K Total]

Nearly:
This code copies the current slide to last, and then deletes it and jumps to the next.

Code: Select all

Sub S_move_selected_page_to_last
      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

R

[Tommy]

@ F3K Total
sorry for late reply.
your macro is perfect. thanks!!!