Excel VBA to automate PowerPoint

CatMan · #1 04-11-2012, 10:34 AM

Hello Forum, thank you for taking the time to look at this.

In an Excel module (Excel is host) I am opening an existing PPT like this:

Code:

Dim ppte As Object
Dim oPAe As PowerPoint.Application
Dim oPPe As PowerPoint.Presentation
Dim oPSe As PowerPoint.Slide
Dim oShapee As PowerPoint.Shape
Dim oPicturee As PowerPoint.Shape
 
With ppt  <--this is a typo, should be 'with ppte' as explained 2 threads down)
    .Visible = True
    .Presentations.Open ("C:\Users\User\Documents\MyPPT.ppt")
End With

Next I want to activate a user defined slide, the following code works ok as a PowerPoint macro:

Code:

ActiveWindow.View.GotoSlide 3 'works inside ppt

but not inside the Excel module:

Code:

With ppte
       .View.GotoSlide 11
End With

I get a run-time error (429). I notice I am not referencing the slide object (oPSe) but all my attempts to work this have failed.

Cosmo · #2 04-11-2012, 10:51 AM

ppte is defined as 'Object', but you dont show any lines setting it to anything - What is it supposed to be?

'with ppt' ... ppt is not defined as a variable in your posted code, what type is it and where does it get set?

If this works

Quote:

With ppt
.Visible = True
.Presentations.Open ("C:\Users\User\Documents\MyPPT.ppt")
End With

then you should be able to change it to

Quote:

With ppt
.Visible = True
.Presentations.Open ("C:\Users\User\Documents\MyPPT.ppt")
.ActiveWindow.View.GotoSlide 3
End With

CatMan · #3 04-11-2012, 04:50 PM

I am affaid I made a typo in my opening thread I typed

Code:

with ppt

instead of

Code:

with ppte

, I am sorry for the confusion that made. But you really helped me with the line

Code:

.ActiveWindow.View.GotoSlide 3

I was trying all kinds of variations on this, here are a few (bad) examples I used:

Code:

.ActivePresentation.SlideShowWindow.View.GotoSlide 3
.ActivePresentation.Slides.Range 3
.View.Slide.SlideIndex 3

And the kicker is I tried the code you offered

Code:

ActiveWindows.View.GotoSlide 3

but forgot to include the point at the start of the line!

I was really stuck on this one so I can't thank you enough for the help, this forum is a great help. Many thank to you Cosmo and all who dropped by.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automate Office Attendance	kgwack	Outlook	0	02-14-2012 09:39 AM
Powerpoint/Excel	richiejjj	PowerPoint	0	02-09-2012 07:20 AM
How to automate all slides	Pemberton	PowerPoint	1	11-09-2011 04:39 PM
Automate Data from Excel into Word DropDown...?	sigraves	Word VBA	0	08-03-2009 06:54 AM
Automate Excel tabname	deegz	Excel	2	12-08-2008 02:57 AM