Как внедрить flash-объект в презентацию
Добавлено: 24.11.2008, 20:31
Раньше вставляла флэшки в презентации не заморачиваясь - гиперссылками. Потом, используя модуль (макрос) Snagit. А теперь решила почитать информацию на заданную тему - и нашла массу интересного.
Отсюда _http://www.sql.ru/forum/actualthread.aspx?tid=563061
Макрос
Детальное описание вставки флешек _http://it-n.ru/Attachment.aspx?Id=9919
Отсюда _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";