T
Terry
Our shop is running Windows 2k and Office 2k. My goal is to have a
PowerPoint slide show looping continuously displaying separate Excel
worksheets. The slide show is then projected onto a wall (a rotating
status board).
I've written some code below so that the linked excel cells get
updated in PowerPoint and this code works if the workbook and
PowerPoint are located on the same computer, however, in my situation,
there are multiple users updating one shared workbook over a network.
The only way I've been able to make the updates work is to manually
stop the slideshow and then restart again. This is not an acceptable
solution. Can someone help me out with some code that would enable
the automatic updates in slideshow view when multiple users are
changing different parts of the linked workbook? Should I use a
different approach?
Sub Macro3()
With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With
ActivePresentation.UpdateLinks
End Sub
Thanks in advance!
PowerPoint slide show looping continuously displaying separate Excel
worksheets. The slide show is then projected onto a wall (a rotating
status board).
I've written some code below so that the linked excel cells get
updated in PowerPoint and this code works if the workbook and
PowerPoint are located on the same computer, however, in my situation,
there are multiple users updating one shared workbook over a network.
The only way I've been able to make the updates work is to manually
stop the slideshow and then restart again. This is not an acceptable
solution. Can someone help me out with some code that would enable
the automatic updates in slideshow view when multiple users are
changing different parts of the linked workbook? Should I use a
different approach?
Sub Macro3()
With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With
ActivePresentation.UpdateLinks
End Sub
Thanks in advance!