With Application .Presentations(1).SlideShowSettings.Run With .SlideShowWindows(1) .Height = 250 .Width = 250 End WithEnd With