Select worksheet on open macro

[haydnc]

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 Autpen()
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]

Why not use automation to run your slide show

eg.
<pre/>
Sub runPowerPointPresentation()
Dim ppApp As PowerPoint.Presentation

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

ppApp.SlideShowSettings.Run

End Sub

'Not tested !

</pre>

 

[haydnc]

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!