adding media to powerpoint

If any one is interested...

Code:
Dim presentation As PowerPoint.Application
presentation = New PowerPoint.Application
            presentation.Visible = Microsoft.Office.Core.MsoTriState.msoCTrue
            presentation.Presentations.Add()
            presentation.Presentations.Item(1).Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
 presentation.Presentations.Item(1).Slides.Item(1).Shapes.AddPicture("image.jpg", Microsoft.Office.Core.MsoTriState.msoCTrue, Microsoft.Office.Core.MsoTriState.msoCTrue, 0, 0)

presentation.Presentations.Item(1).Slides.Item(1).Shapes.AddMediaObject("sound.wav")
 
Back
Top