Question : Powerpoint 2007 VBA to select objects

I have scatter chart that I created in Excel and put into a Powerpoint. I ungrouped it so every "dot" on the scatter plot is a separate object. Now I want to change the size of the points. I'm looking for some VBA code I can use to select all the points, then change their size (or select them one by one and change the size). I'm proficient with Excel VBA but just don't know how to do it in PPT.

Thanks

Answer : Powerpoint 2007 VBA to select objects

As a starter for 10 then, by default shapes grow proportionally so you only need to size the one dimension.

Obviously the display of new dimensions could have been in the same loop and I deliberately created a second loop to demonstrate them as a bit independant of the change loop.

Chris

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:



Sub growme()
Dim shp As Shape

    For Each shp In Application.ActivePresentation.Slides(1).Shapes
        Debug.Print shp.Height
        Debug.Print shp.Width
        shp.Height = shp.Height * 2
'        shp.Width = shp.Width * 2
    Next
    For Each shp In Application.ActivePresentation.Slides(1).Shapes
        Debug.Print shp.Height
        Debug.Print shp.Width
    Next
End Sub