HOW DO YOU SET PWOER POINT UP SO THAT WHEN YOU INSERT PICTURE IT

  • Thread starter Thread starter Dawson
  • Start date Start date
D

Dawson

How do you set power point up so when you insert a picture it will
automatical cover the whole slide with no text or title boxes
 
Which version of power Point are you using? FYI the text/title boxes will
not show during your presentation unless they have information entered into
them. I like to use the title slide to tell me what the slide is about and
drag it off the slide area so that it does not show during the presentation,
but is is available in the outline view. Regardless, you can use the insert
new slide and select the blank slide option
 
I use the following macro. It was written to accomodate a banner containing
title etc but can readily be modified to exclude that. It makes the
background black and resizes the image to full width or full height without
cropping. Hope this helps.

Option Explicit
Sub FitToSlide()
' Copyright Christopher T. Watts (20009)
Dim sTopLimit As Long
Dim sMaxHeight As Single
Dim sMaxWidth As Single
Dim sSlideRatio As Single
Dim sObjectRatio As Single
Dim Cm2Pt As Single

Cm2Pt = 28.3464566929
sTopLimit = 2.3 * Cm2Pt
sMaxHeight = 16.75 * Cm2Pt
sMaxWidth = 25.4 * Cm2Pt
sSlideRatio = sMaxWidth / sMaxHeight

With ActiveWindow.Selection.ShapeRange(1)
sObjectRatio = .Width / .Height
..LockAspectRatio = msoTrue

If sObjectRatio > sSlideRatio Then
' Maximise the width
.Width = sMaxWidth
' Position vertically midway between banner and bottom
' ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
' .Top = .Top + sTopLimit / 2
' Alternatively position at sTopLimit
.Top = sTopLimit
Else
' Maximise height
.Height = sMaxHeight
.Top = sTopLimit
End If

End With
' Centre horizontally on slide
ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True

' Set background to Black
With ActiveWindow.Selection.SlideRange(1)
.FollowMasterBackground = msoFalse
With .Background
.Fill.Visible = True
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
End With
End With
End Sub

cheers
Chris
 
Hi Dawson,

I have PowerPoint 2002. To fill the slide and retain the aspect ratio of
the picture:

INSERT | NEW SLIDE | FORMAT | BACKGROUND | in the little background window,
click on the arrow for the drop-down menu | select FILL EFFECTS | PICTURE
tab | click SELECT PICTURE | click on the name of the picture file | INSERT
| check "Lock aspect ratio" | OK | APPLY.

Good Luck. (It may seem like a long-winded procedure but after you've done
a few it you'll be happy with it.
Andy I.


: How do you set power point up so when you insert a picture it will
: automatical cover the whole slide with no text or title boxes
 
Back
Top