Hello All
From Excel 2002 I am calling up a PowerPoint presentation using VBA. However
I don't really think I'm going about it the best way. My code inserts an
already made up slideshow, runs it, waits 60 secs then deletes it and goes
back to sheet1. This usually works ok, but sometimes my slideshow may slow
down (I assume from other programs using up resources) and the show doesn't
finish in the usual 60 seconds. Excel will kill it and go back to sheet1
before my show is over.
my code
Range("A1").Select
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("A100").Select
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\TestFolder\PowerPointTest.ppt", Link:= _
False, DisplayAsIcon:=False).Select
Selection.Verb Verb:=xlPrimary
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Wait 60
Selection.Delete
Range("A1").Select
I would like to get rid of the timer and have excel recognise when the show
is actually over. I was unable to find anything in the help files. Also I'm
sure there's a better way to run a slideshow than inserting, running and
deleting it evertime.
Any assistance would be much appriciated,
Paul

Paul -

How about opening it in PowerPoint? I have some code that shows how to create an instance of
PowerPoint:

http://peltiertech.com/Excel/XL_PPT.html

You might also poke around the PowerPoint FAQ site:

http://pptfaq.com

I remember reading about how to detect the end of a slideshow, not on that site, but on a site
it linked me to. It was several months ago, so I can't recall precisely where it was, sorry.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Paul wrote:

Hello All
From Excel 2002 I am calling up a PowerPoint presentation using VBA. However
I don't really think I'm going about it the best way. My code inserts an
already made up slideshow, runs it, waits 60 secs then deletes it and goes
back to sheet1. This usually works ok, but sometimes my slideshow may slow
down (I assume from other programs using up resources) and the show doesn't
finish in the usual 60 seconds. Excel will kill it and go back to sheet1
before my show is over.
my code
Range("A1").Select
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("A100").Select
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\TestFolder\PowerPointTest.ppt", Link:= _
False, DisplayAsIcon:=False).Select
Selection.Verb Verb:=xlPrimary
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Wait 60
Selection.Delete
Range("A1").Select
I would like to get rid of the timer and have excel recognise when the show
is actually over. I was unable to find anything in the help files. Also I'm
sure there's a better way to run a slideshow than inserting, running and
deleting it evertime.
Any assistance would be much appriciated,
Paul