P
Paul
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
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