Supercharge your PowerPoint productivity with
|
PPTools |
ProblemYou have a laptop with a wide-screen display. When you start a PowerPoint slide show, it doesn't fill the screen. Instead, it leaves black on either side. Or maybe it fills the screen but distorts the pictures on your slides. Can't it fill the screen instead? Without making messes? SolutionYes, it can. PowerPoint will display your slides as large as it can without cropping. If the proportions of the slide don't match the screen proportions, then it can't fill the full screen, so it fills in the rest with black. If you want PowerPoint to completely fill the screen with your slides you simply have to make your slides the same proportion as the screen. Start by making a copy of your presentation to work on, then do this (assuming a wider-than-average screen):
How big should you make the page? PowerPoint MVP Austin Myers has a free program that figures this out for you To calculate the value yourself, you need to know the width and height of your screen in pixels. To get this:
(On Mac, use System Preferences, Displays to get the current display Resolution setting) Now use this formula to get the correct value for your PowerPoint Slide width: Slidewidth = (Screenwidth x Slideheight) / Screenheight In other words:
Note: As Keith Ratner of SkillzDesign pointed out on the PPT newsgroup recently, keep your slide width at 10" and the height proportional to your intended screen size so you can print to normal letter/A4 size paper without having to remember to checkmark "Fit to page" every time you print. What if the presentation's already done - and set up for a normal 4:3 ratio screen?
You'll probably have to make a few other tweaks to the layout, but on the whole, this should get you there with minimal stress. Automate it with VBA It only works in PPT 2003 (or possibly higher, but not in earlier versions)
Sub ImportAndCenter()
' Imports an image of each slide in a source presentation into the target presentation
' sizes it appropriately and centers it
' Run this with two presentations open
' The presentation you want to import INTO should be the active presentation
Dim oSourcePres As Presentation
Dim oTargetPres As Presentation
Dim oSourceSlide As Slide
Dim oTargetSlide As Slide
Dim oSh As Shape
Dim dSafeMargin As Double
' EDIT THIS IF YOU LIKE:
' This forces the pasted slide to be a bit smaller than the slide you're pasting into
dSafeMargin = 18 ' margin is in points; 72 points to the inch
' and will be added both top and bottom
If Presentations.Count <> 2 Then
MsgBox "You should have two and only two presentations open before running this macro."
Exit Sub
End If
Set oTargetPres = ActivePresentation
If Presentations(1).Name = oTargetPres.Name Then
Set oSourcePres = Presentations(2)
Else
Set oSourcePres = Presentations(1)
End If
' Test
Debug.Print oTargetPres.Name
Debug.Print oSourcePres.Name
For Each oSourceSlide In oSourcePres.Slides
Set oTargetSlide = oTargetPres.Slides.Add(oTargetPres.Slides.Count + 1, ppLayoutBlank)
oSourceSlide.Copy
Set oSh = oTargetSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)
' maintain shape's aspect ratio
oSh.LockAspectRatio = msoTrue
With oTargetPres.PageSetup
' match pasted shape to new slide's height
' this assumes pasting from a "normal" aspect ratio slide
' into a wider than normal one
oSh.Height = .SlideHeight - (dSafeMargin * 2)
' if going the other way, comment out the above and uncomment this
'osh.Width = .SlideWidth
' center the shape
oSh.Left = (.SlideWidth - oSh.Width) / 2
oSh.Top = (.SlideHeight - oSh.Height) / 2
End With
Next
End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code. Using a Plasma display? More info here: Español Deutsch Français Português Italiano Nederlands Greek Japanese Korean Chinese |
Supercharge your PPT Productivity with PPTools
|
content authoring & site maintenance by |
Make screenshow fill a wide screen display
http://www.pptfaq.com/FAQ00566.htm
Last update 15 February, 2008