Below is a demonstration of using PowerPoint.Application to open a PowerPoint file and then run a macro that is stored within the PowerPoint file.
- Make sure you modify “fullpath\p1.pptm” and point it to the full path-filename to your PowerPoint file.
- Modify the macro name. Macro name must be full macro name with file, module and macro name in your PowerPoint file in order for this script to work. Use the following format “p1.pptm!Module1.name”
Sub RunPowerPointMacro() Dim objPP As Object Dim objPPFile As Object Set objPP = CreateObject("PowerPoint.Application") objPP.Visible = True Set objPPFile = objPP.Presentations.Open("fullpath\p1.pptm") Application.EnableEvents = False objPP.Run "p1.pptm!Module1.name" Application.EnableEvents = True objPPFile.Close Set objPPFile = Nothing Set objPP = Nothing End Sub
Posted by Excel Instructor: