Select worksheet on open macro

haydnc · Apr 25th, 2002, 10:54 PM

Hi
As I had no response to the last call for help, am trying a different tack. Am now trying to build a macro that will open an Excel workbook with 3 worksheets on a particular worksheet - "Presentation", select an object, double-click the object so that it opens in Powerpoint Slideshow? (I have copied and paste-linked all the powerpoint slides into my sheet so that it will do this).

What I have so far is :
Sub Auto_Open()
Sheets("Presentation").Select
ActiveSheet.Shapes("Object 22").Select
Selection.Verb
End Sub

The object is being selected but I can't get it to doubleclick not open in SlideView - this code is opening it in Normal view
Very grateful for any assistance offered.

[ This Message was edited by: haydnc on 2002-04-25 21:57 ]

Ivan F Moala · Apr 25th, 2002, 11:12 PM

Why not use automation to run your slide show

eg.



Sub runPowerPointPresentation()

Dim ppApp As PowerPoint.Presentation



Set ppApp = GetObject("C:My DocumentspptPresentation.ppt")



ppApp.SlideShowSettings.Run



End Sub



'Not tested !

haydnc · Apr 25th, 2002, 11:44 PM

Hi Ivan,
Have tried this but this method creates an even larger problem for me as I have to resolve the issue of how to call the two Excel worksheets separately when one of them is already open - as per my original unanswered request for assistance. Having everything in the one Excel worksheet does at least overcome the issue!

Apr 25th, 2002, 11:12 PM	#2
Ivan F Moala MrExcel MVP Join Date: Feb 2002 Location: Auckland, New Zealand Posts: 4,209	Why not use automation to run your slide show eg. Sub runPowerPointPresentation() Dim ppApp As PowerPoint.Presentation Set ppApp = GetObject("C:My DocumentspptPresentation.ppt") ppApp.SlideShowSettings.Run End Sub 'Not tested ! __________________ Kind Regards, Ivan F Moala From the City of Sails

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 25th, 2002, 10:54 PM	#1
haydnc New Member Join Date: Apr 2002 Location: Haydn Cooper Posts: 10	Hi As I had no response to the last call for help, am trying a different tack. Am now trying to build a macro that will open an Excel workbook with 3 worksheets on a particular worksheet - "Presentation", select an object, double-click the object so that it opens in Powerpoint Slideshow? (I have copied and paste-linked all the powerpoint slides into my sheet so that it will do this). What I have so far is : Sub Auto_Open() Sheets("Presentation").Select ActiveSheet.Shapes("Object 22").Select Selection.Verb End Sub The object is being selected but I can't get it to doubleclick not open in SlideView - this code is opening it in Normal view Very grateful for any assistance offered. [ This Message was edited by: haydnc on 2002-04-25 21:57 ]

Apr 25th, 2002, 11:44 PM	#3
haydnc New Member Join Date: Apr 2002 Location: Haydn Cooper Posts: 10	Hi Ivan, Have tried this but this method creates an even larger problem for me as I have to resolve the issue of how to call the two Excel worksheets separately when one of them is already open - as per my original unanswered request for assistance. Having everything in the one Excel worksheet does at least overcome the issue!