Powerpoint Slide Shown Log via VBA coding 1

[HalfListener]

I'm interested in having a log created of the date/time each individual slide is shown (in presentation mode) from a series of PP presentations. This is the main information I want to pass to a simple text file, but am having a little difficulty getting started.


I would be greatful for links that will help me get started (I'm very good with PowerPoint, but still fairly green with VBA).

If I'm trying to re-invent the wheel, and someone has code that already does this, I'd be estatic to be able to see it.


Thanks in advance.

 

[RobBroekhuis]

You'll need to use a SlideShowNextSlide event handler, which is an application event in Powerpoint. The VBA help copied below should get you on your way:

Using Events with the Application Object


To create an event handler for an event of the Application object, you need to complete the following three steps:

Declare an object variable in a class module to respond to the events.


Write the specific event procedures.


Initialize the declared object from another module.
Declare the Object Variable

Before you can write procedures for the events of the Application object, you must create a new class module and declare an object of type Application with events. For example, assume that a new class module is created and called EventClassModule. The new class module contains the following code.

Public WithEvents App As Application
Write the Event Procedures

After the new object has been declared with events, it appears in the Object list in the class module, and you can write event procedures for the new object. (When you select the new object in the Object list, the valid events for that object are listed in the Procedure list.) Select an event from the Procedure list; an empty procedure is added to the class module.

Private Sub App_NewPresentation()

End Sub
Initializing the Declared Object

Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module.

Dim X As New EventClassModule
Sub InitializeApp()
Set X.App = Application
End Sub
Run the InitializeApp procedure. After the procedure is run, the App object in the class module points to the Microsoft PowerPoint Application object, and the event procedures in the class module will run when the events occur.

Rob