Sub Update()
Dim oSl As Slide
Dim oSh As Shape
For Each oSl In ActivePresentation.Slides
For Each oSh In oSl.Shapes
If oSh.Type = msoLinkedOLEObject Then
oSh.LinkFormat.Update
Debug.Print "Updated: " & oSh.Name
End If
Next
Next
' now go to second slide
SlideShowWindows(1).View.GotoSlide (2)
' tell PPT to ignore any changes we made
' don't offer to save the presentation
ActivePresentation.Saved = True
End Sub
This works but I have two problems: Problem one Since these networked
connected laptops are not manned no one can click start show action but that
has been set up in the first slide. Problem two since these slides are linked
to an macros excel sheet that is linked to another excel sheet when it does
update I have to enable macros and update the excel spreadsheet links for
each slide in the show (average 20 slides). Is there any way to have the
action button already activated on each loop of the slideshow (without a
mouse click) and is there a way to have it update the links without opening
up the source file to update it's links too. The key is I can not click
anywhere. Please help!
--
Amazing PPT Hints, Tips and Tutorials
http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk