Forum Moderators: open
Public WithEvents PPTEvent As Application
Private Sub PPTEvent_SlideShowEnd(ByVal Pres As Presentation)
Dim objBroswer As Object
Set objBroswer = CreateObject("InternetExplorer.Application")
objBroswer.Navigate ("http://www.example.com")
objBroswer.Visible = True
End Sub
[edited by: Xoc at 12:31 am (utc) on Oct. 27, 2005]
[edit reason] changed to use example.com [/edit]