Treading new ground controlling PPT from Excel

[earlyd]

In trying to have Excel create a Powerpoint slide, I get stuck on the line that attempts to build the slide...can someone tell me what I'm doing wrong in the last line below?


Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.presentation
Dim ppslide As PowerPoint.Slide

Set PPApp = CreateObject("powerpoint.Application.10")
Set PPPres = PPApp.Presentations.Add
PPApp.Activate
PPApp.ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex

 

[NateO]

Try the following:

<font face=Courier New><SPAN style="color:darkblue">Sub</SPAN> test()
<SPAN style="color:darkblue">Dim</SPAN> PPApp <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, PPPres <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>, PPSlide <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Object</SPAN>
<SPAN style="color:darkblue">Set</SPAN> PPApp = CreateObject("PowerPoint.Application")
<SPAN style="color:darkblue">Set</SPAN> PPPres = PPApp.Presentations.Add
<SPAN style="color:darkblue">Set</SPAN> PPSlide = PPPres.Slides.Add(Index:=1, Layout:=1)
PPApp.Visible = <SPAN style="color:darkblue">True</SPAN>
<SPAN style="color:darkblue">Set</SPAN> PPSlide = Nothing: <SPAN style="color:darkblue">Set</SPAN> PPPres = Nothing: <SPAN style="color:darkblue">Set</SPAN> PPApp = <SPAN style="color:darkblue">Nothing</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>

 

[earlyd]

Thanks Nate

 

[NateO]

You are welcome.