How to refresh the active Slide in a slide show?

Question

Based on my last question I got the right code to change the image of an shape.
Unfortunatly, this does not update the active Presentation. If I close the presentation and restart it, the image is changed, but the change should be directly visible.

This is my code to change the image:

ActivePresentation.SlideShowWindow.View.Slide.Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

I found a way to update the presentation, but this lets the presentation flicker.

ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height - 1
ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height + 1

Edit
I tried refreshing the slide as proposed here, but this didn't worked for me.

Dim lSlideIndex As Long
lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide lSlideIndex

Edit 2
I uploaded my file: Download

Try changing `SlideShowWindows(1).View.GotoSlide lSlideIndex` to `SlideShowWindows(1).View.GotoSlide lSlideIndex, msoTrue` — Siddharth Rout, Jan 24 '13 at 17:07
I just tested the code and it works. how are you running the macro during the slideshow? — Siddharth Rout, Jan 24 '13 at 17:19
I have a button on my slide which opens an userform. This form contains an other button which starts the function once it is clicked. — Christopher, Jan 24 '13 at 17:22
Just recreated the scenario that you mentioned and it works... May I see your file? If yes then upload the file to any free file sharing server and post the link here. — Siddharth Rout, Jan 24 '13 at 17:24
I'm going to simplify my presentation to this scenario and load it up. — Christopher, Jan 24 '13 at 17:25
It works for me :) All I had to do was specify full path in `Fill.UserPicture ("C:\ImageA.jpg")` — Siddharth Rout, Jan 24 '13 at 17:38
let us [continue this discussion in chat](http://chat.stackoverflow.com/rooms/23324/discussion-between-siddharth-rout-and-christopher) — Siddharth Rout, Jan 24 '13 at 17:49

score 3 · Accepted Answer · answered Jan 24 '13 at 19:16

In the end I found my answer in this blog post. It appears to be a bug in PowerPoint 2007.

This code helps to fix the bug:

Dim osld As Slide
'get current slide
Set osld = ActivePresentation.SlideShowWindow.View.Slide
'the next line adds the empty textbox and refreshs the slide
osld.Shapes.AddTextbox msoTextOrientationHorizontal, 1, 1, 1, 1

score 2 · Answer 2 · answered Jan 07 '16 at 16:16

2

I found this bug in my Power Point as well, I add this line into the code and it fixes the bug

Application.SlideShowWindows(1).View.GotoSlide Me.SlideIndex

answered Jan 07 '16 at 16:16

Peerapat Sirichot

21
1

Thanks for your solution! It worked quite flawlessly for me. – Inarion Aug 16 '19 at 13:51
This works for me as well, but is gives me a bit of a flicker. Is this not the case for you? – C. Binair Aug 03 '20 at 11:35

How to refresh the active Slide in a slide show?

2 Answers2

Linked