D
dedawson
http://groups.google.com/group/micr...st&q=slide+sorter+slide+size#922d4462213dbbc5
Cool hack, but...
Caveat Emptor:
Yes, Sub sizeto150() will change the effective size of the slides in
the sorter.
And yes, Sub normalsize() will change them back.
But, it will only change things back correctly if the original Page
Layout was set for Onscreen (ActivePresentation.PageSetup.SlideSize =
ppSlideSizeOnScreen). If it were anything else, you will not get back
to where you came from. To ensure you get back your original contents
un-modified, you need to modify Sub normalsize() as shown below:
Sub normalsize()
With ActivePresentation.PageSetup
..SlideSize = ppSlideSizeCustom
..SlideHeight = h * 72
..SlideWidth = w * 72
End With
End Sub
where: h = the value, in inches, of your original custom slide width,
and
w = the value, in inches, of your original custom slide height
Going back to ppSlideSizeOnScreen when that was not the original Page
Layout will result in text sizes being scaled differently from their
original sizes.
The problem with this method is that one needs to patch in the proper
values for Sub normalsize() each time a document with a different
original Page Layout configuration is used, since these values won't
be available to it after they have been changed by Sub sizeto150()
This can be worked around, however, by expanding the code of
Subsizeto150() to write the original values to the File | Properties |
Custom area, and then have Sub normalsize() read and apply these
values later.
Cool hack, but...
Caveat Emptor:
Yes, Sub sizeto150() will change the effective size of the slides in
the sorter.
And yes, Sub normalsize() will change them back.
But, it will only change things back correctly if the original Page
Layout was set for Onscreen (ActivePresentation.PageSetup.SlideSize =
ppSlideSizeOnScreen). If it were anything else, you will not get back
to where you came from. To ensure you get back your original contents
un-modified, you need to modify Sub normalsize() as shown below:
Sub normalsize()
With ActivePresentation.PageSetup
..SlideSize = ppSlideSizeCustom
..SlideHeight = h * 72
..SlideWidth = w * 72
End With
End Sub
where: h = the value, in inches, of your original custom slide width,
and
w = the value, in inches, of your original custom slide height
Going back to ppSlideSizeOnScreen when that was not the original Page
Layout will result in text sizes being scaled differently from their
original sizes.
The problem with this method is that one needs to patch in the proper
values for Sub normalsize() each time a document with a different
original Page Layout configuration is used, since these values won't
be available to it after they have been changed by Sub sizeto150()
This can be worked around, however, by expanding the code of
Subsizeto150() to write the original values to the File | Properties |
Custom area, and then have Sub normalsize() read and apply these
values later.