VBA code to group picture to export as one

[RenaatS]

I am trying to create a bit of VBA code in Powerpoint that will scroll through all shapes on one slide and group all shapes that are of the type msoPicture. Then I want to export the group as one picture.



I have tried to create a range and then apply the Group function to that range.
To create the range I am going through all shapes and add the names of the shapes that are pictures to a string (like ArrayStr = "Shape 1",'Shape 7","Shape 9"). I than enter that string into the range by using an array (like range(array(ArrayStr)).

But when I do so the systems puts " " around the string (like Range(Array(""Shape 1",'Shape 7","Shape 9"")), which makes it unreadable to the array. (at least that seems the problem to me).

Can anyone tell me how I should do this? Do I need to group using Range? How do I create an array for it?