Ну, я полагаю, я превращу это в вопрос программирования для тех, кому это тоже нужно программно.
Наиболее вероятная причина - использование 64-разрядной версии PowerPoint 2010. Файл справки гласит:
64-разрядная версия PowerPoint 2010 не является
совместим с 32-битными версиями
QuickTime или Flash. Вы должны установить
64-разрядная версия QuickTime или Flash,
или 32-разрядная версия PowerPoint
2010
Это бессмысленно говорить, потому что ни Flash, ни QT не имеют 64-битных версий. Тем не менее, вы все равно можете встроить (фактически, «ссылку на») файл программно, используя код, такой как:
Sub InsertWebVideo()
Dim sl As Slide
Set sl = ActivePresentation.Slides(28)
sl.Shapes.AddMediaObjectFromEmbedTag EmbedTag:= _
"<object width='640' height='385'>" & _
"<param name='movie' value='http://www.youtube.com/v/gejJM3n2LHU&hl=en_US&fs=1&'>" & _
"</param><param name='allowFullScreen' value='true'></param>" & _
"<param name='allowscriptaccess' value='always'></param>" & _
"<embed src='http://www.youtube.com/v/gejJM3n2LHU&hl=en_US&fs=1&' " & _
"type='application/x-shockwave-flash' allowscriptaccess='always' " & _
"allowfullscreen='true' width='640' height='385'></embed></object>"
End Sub
Проблема в том, что это просто не работает на x64 - объект появляется на слайде, но ничего не происходит. Встраивание Silverlight, похоже, не работает, так как Windows Media Player выдает ошибку. Если у вас есть WMV на веб-сайте, попробуйте с кодом <embed/>
, используя что-то вроде кода выше.