Handle on activeshape and slide

[Hari Prasadh]

Hi,

How do I get a handle on active shape in PPT (am Coding in Excel)

I want to use something like

With oPPTApp1.ActivePresentation.Slides(1).ACTIVESHAPE

where oPPTApp1 is PPT application and I do have a particular shape in my PPT
which is active (similar to active sheet / cell in excel)

Also do we have a code/syntax like Activeslide (I tried
activepresentation.activeslide but got no intelli prompt)

Please guide me.

Thanks a lot,
Hari
India

 

[Brian Reilly, MS MVP]

Hari,

This works for me as is in PPT with the selected shape.

With ActiveWindow.Selection.ShapeRange
.Top = 10
.Left = 10
End With

You can just wrap it inside of the a with oPPTApp1.activepresentation
nest.

Brian Reilly, MVP

 

[Hari Prasadh]

Hi Brian,

Thnx a TON for the solution.

Regards,
Hari
India

 

[Steve Rindsberg]

Hi,

How do I get a handle on active shape in PPT (am Coding in Excel)

I want to use something like

With oPPTApp1.ActivePresentation.Slides(1).ACTIVESHAPE

where oPPTApp1 is PPT application and I do have a particular shape in my PPT
which is active (similar to active sheet / cell in excel)

How would you define active?
If you're in normal view, ActiveWindow.Selection.ShapeRange returns a range =
currently selected shape or shapes.

If you're in slideshow view, you can't select anything, so this won't work.

Also do we have a code/syntax like Activeslide (I tried
activepresentation.activeslide but got no intelli prompt)

That again depends on the current view.

ActiveWindow.Selection.SlideRange might do it

 

[Hari Prasadh]

Hi Steve,

Thnx for the solution

(am always in normal view only. Am just updating the data in my PPT's and
not running code while in slide show mode etc.)

Thanks a lot,
Hari
India