Code from Powerpoint VBE not Working in Excel VBE?

[Aaron]

With a worksheet object selected in Powerpoint this code works perfectly from
PP VBE but from Excel VBE I get "Run-time error 429: ActiveX comonent can't
create object"

PowerPoint.Application.ActiveWindow.Selection.ShapeRange.Name = "testname"

Through tools references I have selected:
VBA
MS XL 11.0 obj lib
OLE auto
MS off 11.0 obj lib
MS PP 11.0 obj lib
and just for kicks I tried some MS ActiveX object libraies, but they did not
seem to help so I have deselected them now. Any ideas?

 

[Jon Peltier]

You need to declare a variable to represent the PowerPoint application:

Dim ppApp As PowerPoint.Application

Then you need to instantiate it in one of several ways. Assuming you have
Ppt running already:

Set ppApp = GetObject(, "PowerPoint.Application")

now adjust the line you posted:

ppApp.ActiveWindow.Selection.ShapeRange.Name = "testname"

Here's more on controlling one program from another:

http://peltiertech.com/Excel/XL_PPT.html

- Jon