Does this work??
Dim oshp As Shape
Dim osld As Slide
Set osld = ActiveWindow.View.Slide
Set oshp = osld.Shapes(osld.Shapes.Count)
oshp.Left = 0
oshp.Top = 0
oshp.Height = ActivePresentation.PageSetup.SlideHeight
oshp.Width = ActivePresentation.PageSetup.SlideWidth
Set oshp = Nothing
Set osld = Nothing
|