With PPSlide .Shapes.Paste.Select With .Shapes(.Shapes.Count) .LockAspectRatio = msoFalse .Left = 0 .Top = 0 .Width = PPApp.PageSetup.SlideWidth .Height = PPApp.PageSetup.SlideHeight End With End With