Select all content including placeholders

[baset]

Dear All

How can i create a simple macro to run per slide then select all page content even they are Placeholders and group them as when trying to do this manually by pressing CTRL+A then right click the "Group" feature is no available ?

15033

file @ http://www.mediafire.com/view/4qu9bd5nc6ppyt7/test.pptx

[baset]

Is this request are very hard to be done or what as i see 60 Views with no 1 reply :banghead:

[baset]

To simplify the request:

Can i convert all placeholders to normal text boxes so that the group function can be run ???

[baset]

Dear VBA experts:

Just i want a direct answer to this question to save searing/investigating time:

Can i convert all placeholders to normal text boxes ??? Is that can be achieved or not possible ???

[John Wilson]

You really need to explain better WHY you need to do this but try this (It will only work in edit view)


Sub grpPLC()
Dim osld As Slide
On Error Resume Next
Set osld = ActiveWindow.View.Slide
osld.Shapes.Range.Cut
osld.Shapes.Paste
osld.Layout = ppLayoutBlank
End Sub

[baset]

You really need to explain better WHY you need to do this but try this (It will only work in edit view)


Sub grpPLC()
Dim osld As Slide
On Error Resume Next
Set osld = ActiveWindow.View.Slide
osld.Shapes.Range.Cut
osld.Shapes.Paste
osld.Layout = ppLayoutBlank
End Sub

Thanks John for your reply; Kindly note that after testing your code the Placeholders are still Placeholders shape type so i can't group them.

[John Wilson]

It does work here.

15074

You can download and run the macro here

http://www.pptalchemy.co.uk/Downloads/test.pptm

[baset]

But i tested it with that file (http://www.mediafire.com/view/4dacxql328smv9b/place2.pptx) and it doesn't work :crying:

[John Wilson]

What version of PPT? I used 2010 and 2016

The file after running macro is here (http://www.pptalchemy.co.uk/Downloads/groupable.pptx)

[baset]

Dear John

The file i attached is another one that has Placeholders also.

For the PowerPoint version i'm using 2013.