Design a Macro to Group Objects on a Slide

[Pepette]

Hi,

I'm trying to build a macro that groups all the objects in a slide except
for the header box, that is a placeholder.

I've tried using the macro on the following link,

http://support.microsoft.com/kb/163566

but it's not working: it either gets me to the: you have to be in slide
view, or when I remove the if module for the slide view, to an error message
that says: Method 'Group' of object 'ShapeRange' failed.
When I debug, VB takes me to ".Range(ShapeList()).Group.Select"


Any help appreciated,

 

[John Wilson]

Slide View error you are probaly in Normal View

Try

If ActiveWindow.ViewType <> ppViewNormal And _
ActiveWindow.ViewType <> ppViewSlide Then

The other error I'm not so sure but one possibility is that you have shapes
with the same name. In 2007 this is possible especially if you copy / paste
but the group command won't work if the names are the same.

Look in the selection pane to check the name
--
john ATSIGN PPTAlchemy.co.uk

Free PPT Hints, Tips and Tutorials
http://www.pptalchemy.co.uk/powerpoint_hints_and_tips_tutorials.html
PPTLive Atlanta Oct 11-14 2009