Как внедрить flash-объект в презентацию

Мои презентации к некоторым урокам биологии
Правила форума
Внимание! Размер презентаций достаточно большой из-за включённых фрагментов учебных фильмов, флэш-анимаций и звуковых роликов. Презентации можно использовать как для простого вывода на экран, так и для работы со смарт-доской…

Запрещено использовать мои презентации в отрытых уроках, конкурсах, семинарах и так далее. Особенно в г. Серпухове! и МО
Аватара пользователя
Елена Шишловская
Хозяйка
Сообщения: 1153
Зарегистрирован: 28.07.2007, 12:08
Контактная информация:

Как внедрить flash-объект в презентацию

Непрочитанное сообщение Елена Шишловская »

Раньше вставляла флэшки в презентации не заморачиваясь - гиперссылками. Потом, используя модуль (макрос) Snagit. А теперь решила почитать информацию на заданную тему - и нашла массу интересного.
Отсюда _http://www.sql.ru/forum/actualthread.aspx?tid=563061

Макрос

Код: Выделить всё

Sub Makro1()
    ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=96#, Top:=120#, Width:=234#, Height:=138#, ClassName:="ShockwaveFlash.ShockwaveFlash.9", Link:=msoFalse).Select
    ActiveWindow.Selection.ShapeRange(1).OLEFormat.Object.Movie = "C:\test.swf"
End Sub

Код: Выделить всё

PowerPoint.Shapes shapes = objSlide.Shapes;
			 objShape = shapes.AddOLEObject(96, 102, 222, 174, "ShockwaveFlash.ShockwaveFlash.9", "", Office.MsoTriState.msoFalse, "", 0, "", Office.MsoTriState.msoFalse);

			 ShockwaveFlashObjects.ShockwaveFlash flash = (ShockwaveFlashObjects.ShockwaveFlash)objShape.OLEFormat.Object;
			 flash.Movie = "C:\\test.swf"; 
Детальное описание вставки флешек _http://it-n.ru/Attachment.aspx?Id=9919
Вложения
Kak.rar
Все-таки скачала. А то инет - весчь ненадежная :)
(633.65 КБ) 402 скачивания
Сайт "ЕГБИО" - http://egebio.ru/
наполеон

Непрочитанное сообщение наполеон »

Zajka.ИНТЕРЕСНЕНЬКО...Grande Mersi !!!:-)))))
Аватара пользователя
Елена Шишловская
Хозяйка
Сообщения: 1153
Зарегистрирован: 28.07.2007, 12:08
Контактная информация:

Непрочитанное сообщение Елена Шишловская »

Нема за шо! :{O}: Если траффик позволяет - скачайте "Мутации" (пожалуйста) и посмотрите - работают флэшки в презентации. Их правда наверное центр безопасности блокировать будет...
Сайт "ЕГБИО" - http://egebio.ru/
Ответить