Powerpoint webbrowser

[perR]

I want to display a webpage from a slide. To do that I'm using the
Microsoft Active-X Webbrowser at one of the slides in my presentation.
When the slide opens the active-X shows nothing. I've added a button to
the slide with the following code :
Private Sub ShowWEB_Click()
WebBrowser1.Navigate "http://www.google.no/"
End Sub
This works fine, but I want active-X to show the web page without
automatically. I've managed to do that also by using the following code
in a class module :
Public WithEvents App As Application

Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
Slide1.WebBrowser1.Navigate "http://www.google.no/"
End Sub

This only works for the first slide. Please help!

 

[Shyam Pillai]

If you are not planning to ship the presentation, you can make use of my
free add-in LiveWeb - http://skp.mvps.org/liveweb.htm

Alternately, to fix your code, you will need to do a select case and figure
out which slide you are on and navigate accordingly.

e.g.

Select case Wn.View.Slide.SlideIndex
case 1
Slide1.WebBrowser1.Navigate "http://www.google.no/"
case 2
'''
End Select



--
Regards,
Shyam Pillai

Animation Carbon
http://www.animationcarbon.com