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

--- Comment #3 from Eric M <majzo...@umsl.edu> ---
Here is a macro that forces LO to redraw the slide thumbnails. This is poorly
written, and simply loops through the slides and will copy, paste, and delete
each one. I don't what call I need to just force a redraw of the thumbnail, but
this works. For some reason this only works if you are in the 'slide sorter'
view.

REM  *****  BASIC  *****
REM  * You must be in 'slide sorter' view for this to work!!
REM

Sub refresh

msg = "Starting refresh..."

oDoc = ThisComponent
oSlideList = oDoc.getDrawPages()

REM loop through all slides and copy, paste, delete each one

For i = 0 to oDoc.getDrawPages().Count-1

oSlide = oSlideList.getByIndex(i)
REM msg = msg & "get slide : " & i

oController = oDoc.CurrentController
REM oCurrentPage = oController.CurrentPage
oDispatch = createUnoService( "com.sun.star.frame.DispatchHelper")
oProvider = oController.Frame
oDispatch.executeDispatch(oProvider, ".uno:Copy","", 0, Array())
oDispatch.executeDispatch(oProvider, ".uno:Paste", "", 0, Array())
oDispatch.executeDispatch(oProvider, ".uno:Delete","", 0, Array())

Next i

REM msgbox msg

End Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to