mission impossible: save an already open slideshow?

[theintern]

I have PowerPoint saving a slideshow to the company network every 15 minutes.
Problem: if someone is viewing the slideshow when it tries to update, my
whole process fails. Question: is there anyway to overwrite a slideshow
while it is open? is there any alternate solution or way around this?

thanks
scott

 

[TAJ Simmons]

scott

What if they (the someone) was viewing a 'copy' of the same presentation.

Can you write the code to make the 'copy' that people view?
So you can edit the original - it gets made into a copy every 15 minutes.
So you can always edit the original - and people view the copy

Cheers
TAJ Simmons
Microsoft Powerpoint MVP

http://www.awesomebackgrounds.com
awesome - powerpoint templates,
powerpoint backgrounds, free samples, ppt tutorials...

 

[theintern]

It's a good idea, but i'm not sure how it would work. So i have PP make a
slideshow, but then how do i make a copy that directly links to that
slideshow?

 

[theintern]

This might work. How do i trap that error? I've used events before and the
whole thing is running off an add-in to PowerPoint that creates this
slideshow. can i add it to that? do i need another event handler? it's
definitely worth a try; just not sure about the procedure

 

[theintern]

Question: I have this process continually running, involving a few other
programs, updating every 15 minutes. If this error message pops up and it
starts this loop, waiting till it can save, that could crash the whole
process right? the next time the file is called, that error message will
still be open and nothing will auto-display, as it should, correct?

 

[theintern]

Q: how do i close/ignore that error? is there something like errorbox.close
or something? just not sure what to put/do if an error actually occurs. i
really just want it to close that error and try again.

thanks
scott

 

[theintern]

So i was playing around with your method when i came across something that
looks like exactly what i want to do, and this lady got it to work. check
out the website, check out my code below, and let me know what you think.
no, it doesn't yet work.

http://www.developersdex.com/vb/message.asp?p=2677&r=6256212

Sub CreateShow()
'Declare the variables
Dim oSlide As Slide
Dim oPicture1 As Shape
Dim oPicture2 As Shape
Dim oPicture3 As Shape
Dim oPicture4 As Shape
Dim oPicture5 As Shape
Dim oPicture6 As Shape

DisplayAlerts = False
ScreenUpdating = False

....bunch of code inserting pics...

With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoTrue
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Run

End With

'Save the presentation to the network
ActivePresentation.SlideShowWindow.View.Exit
ActivePresentation.SaveAs ("U:\Estimating Log\Est
Schedule\Directory\schedule.pps"), ppSaveAsShow
SetAttr "U:\Estimating Log\Est Schedule\Directory\schedule.pps",
vbReadOnly

oPicture1.Delete
oPicture2.Delete
oPicture3.Delete
oPicture4.Delete
oPicture5.Delete
oPicture6.Delete

'Stop the show
ActivePresentation.Close
'Resets the objects
Set oSlide = Nothing
Set oPicture1 = Nothing
Set oPicture2 = Nothing
Set oPicture3 = Nothing
Set oPicture4 = Nothing
Set oPicture5 = Nothing
Set oPicture6 = Nothing
Application.Quit
End Sub


thanks!
scott