CODEWITHSUNDEEP
vbapowerpoint
DrS.
DrS.

Reputation: 67

Using Microsoft PP Functions in vba code?

I wrote a vba macro for PowerPoint. All works well but I miss one step.

So far my macro ends by selecting a certain group of shapes on a slide. After it finishes I go back to PowerPoint and use the "Group" button to make a group out of the selected shapes.

How can I use this Micorsoft Group function in my code. I only manage to group all shapes on a slide to one group or I get an error.

I have tryed: ActivePresentation.slide(1).shapes.selected.group but that doesn't work.

I have read this:

How do I group a set of shapes programmatically in excel 2007 vba?

but several names of shapes are identical, so that doesn't really work. And I do not know how to store the indexnumber of a shape into a variable - which would be a second option to solve my problem.

Basically the Microsoft own functions does exactly what I would need now, right? I takes the shapes that are selected and groups them to a group. can I just call this function within my macro?

Many thanks for any help.

Upvotes: 0

Views: 225

Answers (2)

Steve Rindsberg
Steve Rindsberg

Reputation: 14809

If you've got the shapes selected, then this should do it:

Activewindow.Selection.ShapeRange.Group

Upvotes: 1

GSerg
GSerg

Reputation: 78175

ActivePresentation.Slides(1).Shapes.Range(Array(2, 3, 4)).Group

ActivePresentation.Slides(1).Shapes.Range(Array("this", "that", "other")).Group

ActivePresentation.Slides(1).Shapes.Range(Array("this", 42, 3)).Group

Upvotes: 0

Related Questions