Solved

PowerPoint 2007 events

Posted on 2011-09-03
3
380 Views
Last Modified: 2012-06-22
I have added an ActiveX webbrowser control to a slide.  I'd like it to navigate to a local file as soon as the presentation starts, but I am having trouble figuring out how to use events to trigger action.

This has been my reference:
http://msdn.microsoft.com/en-us/library/bb265913(v=office.12).aspx

I cannot figure out how to auto-run the InitializeApp sub.

From the msdn link:
To create an event handler for an event of the Application object, you need to complete the following three steps:
1.Declare an object variable in a class module to respond to the events.
2.Write the specific event procedures.
3.Initialize the declared object from another module(this is the InitializeApp sub below)


To create an event handler for an event of the Application object, you need to complete the following three steps:
1.Declare an object variable in a class module to respond to the events.
2.Write the specific event procedures.
3.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 is 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 Office PowerPoint Application object, and the event procedures in the class module will run when the events occur.

Open in new window

0
Comment
Question by:motokent
3 Comments
 
LVL 59

Accepted Solution

by:
Chris Bottomley earned 250 total points
ID: 36479502
Unfortunately, PPT is not fully compatible with htis and to do as you want requires an add-in.   Via an add-in you can detect events, one of which is initialise on open.

See http://skp.mvps.org/autoevents.htm for an appropriate add-in and guide.

Chris
0
 
LVL 23

Assisted Solution

by:JSRWilson
JSRWilson earned 250 total points
ID: 36480019
In 2007 and 2010 you can auto run the initializeApp sub by using the onLoad of the ribbon when the presentation is loaded. Not entirely reliable though.

See http://www.pptalchemy.co.uk/PowerPoint_Auto_Open_Code.html for more

0
 

Author Closing Comment

by:motokent
ID: 36480199
Thanks both of you.
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Excel Formatting test 26 65
Word 2016 - Spelling/Grammar Check - Inconsistent behavior upon completion 7 86
how to open abcd.txt.orig file? 10 45
help with an excel problem 10 29
No matter the version of Windows you are using, you may have some problems with Windows Search running too slow or possibly not running at all. Before jumping into how you can solve this issue, just know there are many other viable alternative deskt…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now