Hi, I need help with a macro that will select a specify area on every slides then group any shapes or objects within it. Once that is done, resize the grouped object to a specified position on a slide then ungroup. See below:

1. On every slides starting position from top left corner .Left= 0.23*7 and .top=0.54, make a selection area of height=6.81in and width=10in
2. Once the selection is captured, group all the shapes and objects within this selection area on the slide
3. Then resize this grouped object to .width=12.87*72 and left=0.23*72
4. After the resize, ungroup it and give a msgbox that it is complete.

Below is what i have so far but it can only work on a selected objects that is already grouped page by page at a time. I'm not sure how to make the selection work and do all the steps above.
Any help is appreciated.

-Ted


Public Sub Resize ()
Dim shp as Shape

For Each osld In ActivePresentation.Slides

set shp = activewindow.selection.shaperange(1)

with ActiveWindow.Selection. ShapeRange

.width =12.87*72
.Left =0.23*72
.Ungroup

End with
End if
End sub