Отсюда _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";