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
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______
"Aaron" <(E-Mail Removed)> wrote in message
news:56CC44A7-EFF6-4408-9CF0-(E-Mail Removed)...
> 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?
>
>
>