open .pps from another .pps 1

[meh485]

hi everybody
im trying to write a macro for the user to open pps file and them click a button and by clicking that button it will run a macro to open another .pps file.

can anybody help me with this.

thank you all

 

[johnwm]

I use a standard function which will open ANY document that has a default app registered.

Public Function OpenDocument(DocumentWithPath As String) As Long
    OpenDocument = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & DocumentWithPath, vbNormalFocus)
End Function

In your macro you can then use

x = OpenDocument("c:\mydoc.ppt")

Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

Steam Engine enthusiasts:

http://www.essexsteam.co.uk

 

[meh485]

thanks this does work but it displays an alert
i tried to do application.displayalerts = false
but the message still comes up

the message says:
"The command cant be performed because a dialog box is open. please close open dialog boxes to continue."

the message only lets me click ok, when i click ok and exit the slideshow, it than opens the slideshows i want.

i need for when the macro runs, the spreadsheet opens simultaneously.

thanks