Web-страницы внутри презентаций Microsoft PowerPoint

[ad1Dima]

> •На Windows 7 по умолчанию запускается IE7, страницы, не оптимизированные под IE7 отображаются криво и с ошибкой
1) IE 7 в Windows 7 не бывает впринципе.
2) Скорее всего, просто используется движок IE установленный в системе. Т.е. если у вас стоит IE 10, то использоваться будет соответствующий движок.

[degressor]

Спасибо, сиправил.

[ad1Dima]

> У меня под Win7 это IE7,
Как-то странно вы исправили.

Вики:
Windows Internet Explorer 8 (IE8) is a web browser developed by Microsoft in the Internet Explorer browser series, released on March 19, 2009. It is the successor to Internet Explorer 7, released in 2006, and is the default browser for Windows 7 and Windows Server 2008 R2 operating systems.[3] As of January 2011, estimates of IE8's global market share ranged from 26 percent to 33 percent.[4][5][6]

Ну или расскажите как вы на win7 поставили IE 7, я не умею.

> •Исправить ситуацию с IE7 можно добавив мета-тег, с указанием желаемой версии Internet Explorer, на нужную страницу:

Этот метатег означает, что ie более старшей версии, должен рендерить и исполнять скрипты, как ie более младшей версии. Например, когда скрипты использовали костыли для поддержки ie8, а в ie9 эти костыли не работают. Что бы не переписывать под 2 браузера, можно попросить IE работать как более младшая версия. (Все на самом деле немного сложнее)

[Sterpa]

В PowerPoint у объектов Slide, действительно нет события Activate. Нет его и у объекта WebBrowser.
И на сайте поддержки VBA Microsoft вы действительно не найдете способа заставить отображаться web-страницы автоматически при смене слайдов, без нажатия на какую либо кнопку.

Но такая возможность все же есть.
Для этого необходимо использовать событие OnSlideShowPageChange()
Следующий код можно вставить в новый модуль (например, Module1), и он будет выполняться при каждой смене слайдов.
В блоках Case можно уже задать персональный код для каждого слайда.
SlideNum — номер текущего слайда.

Sub OnSlideShowPageChange()
    Dim SlideNum As Integer

    SlideNum = ActivePresentation.SlideShowWindow.View.CurrentShowPosition

    Select Case SlideNum
    Case 2
        Slide2.WebBrowser1.Navigate ("http://www.microsoft.com")
    Case 3
        Slide3.WebBrowser1.Navigate ("http://www.google.com")
    End Select

End Sub

Если объектов, требующих авто-запуска немного, то можно обойтись без Case и запускать один и тот же код при каждой смене слайда. Ошибку это не вызовет и задержек особых при просмотре не создаст, так же избавит о необходимости менять номера слайдов в Case при изменении порядка слайдов в презентации.