A
avfc4me
I have a couple of questions.
1. What is the EXACT size a jpeg should be for a PowerPoint presentation
background, and
2. Is there a better way to do this? I don't want to apply a DESIGN TEMPLATE
because I've formatted the text precisely the way I want it, I have some
slides that have hilighted text and applying the template makes my hilights
disappear, and I don't want widows, so I've manually done some line breaks.
Public Sub Airline_Click()
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.SlideMaster.Shapes.AddPicture(FileName:="C:\presentations\8_paper.jpg",
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=36, Top:=27,
Width:=648, Height:=486).Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -36#
.IncrementTop -27#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.11, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.11, msoFalse, msoScaleFromTopLeft
End With
ActiveWindow.Selection.ShapeRange.ZOrder msoSendToBack
ActiveWindow.Selection.Unselect
ActiveWindow.ViewType = ppViewSlideSorter
Unload stepFive
Step3.show
End Sub
Obviously, if I get the size exactly right, I won't need the positioning,
but is there a cleaner way to write this code? As it is, I just modified a
macro ever so slightly.
Much thanks to He Who Always Answers My Silly Questions...
1. What is the EXACT size a jpeg should be for a PowerPoint presentation
background, and
2. Is there a better way to do this? I don't want to apply a DESIGN TEMPLATE
because I've formatted the text precisely the way I want it, I have some
slides that have hilighted text and applying the template makes my hilights
disappear, and I don't want widows, so I've manually done some line breaks.
Public Sub Airline_Click()
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.SlideMaster.Shapes.AddPicture(FileName:="C:\presentations\8_paper.jpg",
LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=36, Top:=27,
Width:=648, Height:=486).Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -36#
.IncrementTop -27#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.11, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.11, msoFalse, msoScaleFromTopLeft
End With
ActiveWindow.Selection.ShapeRange.ZOrder msoSendToBack
ActiveWindow.Selection.Unselect
ActiveWindow.ViewType = ppViewSlideSorter
Unload stepFive
Step3.show
End Sub
Obviously, if I get the size exactly right, I won't need the positioning,
but is there a cleaner way to write this code? As it is, I just modified a
macro ever so slightly.
Much thanks to He Who Always Answers My Silly Questions...