In PPT 2007 you can't record macro :-(
What about this code
Code:
Dim shp As ShapeRange
If ActiveWindow.Selection.Type = ppSelectionShapes Then
Set shp = ActiveWindow.Selection.ShapeRange
shp.Left = 0
shp.Top = 0
shp.Height = ActivePresentation.PageSetup.SlideHeight
shp.Width = ActivePresentation.PageSetup.SlideWidth
End If
Set shp = Nothing