I have tried to follow the guidance provided on the Microsoft website for event handling but i can not get the following to code work.
I have a classmodule called "EventClassModule" - includes the following code
Public WithEvents App As PowerPoint.Application
Private Sub App_PresentationOpen(ByVal Pres As Presentation)
ActivePresentation.Slides(12).Shapes("TextBox1").OLEFormat.Object.Text = "Basic introduction to training"
I have a module called "Module1" includes the follwoing code
Dim X As New EventClassModule
Set X.App = PowerPoint.Application
And i was hoping that when i open the ppt file the text box on page12, textbox1 will be populated but it simply does not work and does not error.
I am obviously doing something very stupid (like where and how do i run initializeapp), all help most welcome