Using VBA to change page size

[Tom Russell]

I'm using VBA to change the page size by setting
ActivePresentation.PageSetup.SlideHeight (& SlideWidth). I'm trying to get the
same results as manually resetting these values from the File/Page Setup dialog.
Unfortunately, using VBA doesn't seem to resize the rest of the presentation
elements to match the changed page. Am I missing a step? Do I need to call some
kind of 'refreshPresentation' method to update the reset of the elements?

Thanks,
Tom
--
/===========================================================\
| Tom Russell \\\ FedEx - Ground Ops Systems |
| Technical Advisor \\\ 5450 Tech Center Drive |
| tmru...@fedex.com \\\ Colorado Springs, CO 80919 |
| RUSSELL/THOMAS (EMC2) \\\ (719) 262-1524 |
\===========================================================/

[PK Huntzinger]

Tom,
I recorded a macro to change page size and got this:
With ActivePresentation.PageSetup
.SlideSize = ppSlideSizeCustom
.SlideWidth = 800
.SlideHeight = 600
.FirstSlideNumber = 1
.SlideOrientation = msoOrientationHorizontal
.NotesOrientation = msoOrientationVertical
End With

I can change the numbers here and in the File, Page Setup box with equal
results. Can you tell us what you are doing differently that it is not
working for you?

Kathy

[David Foster]

On Tue, 09 Mar 1999 10:47:43 -0700, Tom Russell
<170...@mema.mail.fedex.com> wrote:

>I'm using VBA to change the page size by setting
>ActivePresentation.PageSetup.SlideHeight (& SlideWidth). I'm trying to get the
>same results as manually resetting these values from the File/Page Setup dialog.
>Unfortunately, using VBA doesn't seem to resize the rest of the presentation
>elements to match the changed page. Am I missing a step? Do I need to call some
>kind of 'refreshPresentation' method to update the reset of the elements?

I've not seen this, what types of things aren't resizing? Are you
setting the .SlideSize param as well as .Height and .Width?

If so, you probably aren't missing a step. You've probably stumbled
across one of the many PPT VBA bugs. There is no refreshPres method,
although closing and opening the file might help (but probably won't).

Still, I'd love to see more detail about it: can you describe the
problem in more detail?

--
David Foster | People don't want to be healed, they want a nice
dfo...@panix.com | juicy wound that shows well when they put neon
finger for PGP key | lights around it. -- The Journal of Albion Moonlight

[Tom Russell]

I've tried to distill this to the simplest case; here are the gory details:

- Created a blank presentation with a single title slide.
- Checked File/Page Setup: Width = 10in, Height = 7.5in
- Entered some title text and increased the font size until the title took up
the whole width of the screen.
- Saved the slide as a gif file - it ended up as a 959x719 image.
- Recorded a macro with the following code. The width and height values were set
so I could export the slide to a gif and get a 320x240 image.

With ActivePresentation.PageSetup
.SlideSize = ppSlideSizeCustom

.SlideHeight = 241
.SlideWidth = 181

.FirstSlideNumber = 1
.SlideOrientation = msoOrientationHorizontal
.NotesOrientation = msoOrientationVertical
End With

- Ran the macro. The background resized, but the title text stayed the same,
causing it to appear huge and to run off the page.
- Checked File/Page Setup: Width = 3.35in, Height = 2.51in
- Did an Edit/Undo Last to reset the size back to 10in x 7.5in
- Used File/Page Setup to reset the height & width to 3.35in x 2.51in
- Both background & title text resized.
- Saved the slide as a gif file - it ended up as a 320x240 image.

Can anybody else duplicate this?

BTW - I'm running: PowerPoint97 SR-1, Win95 4.00.950 b, HP Vectra Pentium 200,
64MB RAM

Thanks,
Tom

Tom Russell wrote:
>
> I'm using VBA to change the page size by setting
> ActivePresentation.PageSetup.SlideHeight (& SlideWidth). I'm trying to get the
> same results as manually resetting these values from the File/Page Setup dialog.
> Unfortunately, using VBA doesn't seem to resize the rest of the presentation
> elements to match the changed page. Am I missing a step? Do I need to call some
> kind of 'refreshPresentation' method to update the reset of the elements?
>

[Kathy Huntzinger]

vedddy interestink...

yup, can reproduce this. I think David's right, you found a buglet.
To check I did it a couple of times on different files. When you run
Page setup it reduces all the slide objects proportionately; running the
macro changes the page size and the objects, but NOT the text. Doesn't
seem to matter if it is text from the master or text just placed on the
slide.

The only thing I can think of to work around this is to export the files
and resize the resulting gif files, but perhaps there is another way.

Kathy

[Tom Russell]

Actually, I didn't even catch the fact that it was resizing the slide objects
correctly - I was concentrating so hard on the text problems. Maybe I can cycle
through the slide and change all of the text fonts to sizes that match the
degree of change in the slide size, then change the actual slide size. Hmmm...

So what do I do to report the bug (I'm brand new to VBA)? Does Microsoft Tech
Support monitor this group?

Regards,
Tom

Kathy Huntzinger wrote:
>
> vedddy interestink...
>
> yup, can reproduce this. I think David's right, you found a buglet.
> To check I did it a couple of times on different files. When you run
> Page setup it reduces all the slide objects proportionately; running the
> macro changes the page size and the objects, but NOT the text. Doesn't
> seem to matter if it is text from the master or text just placed on the
> slide.
>
> The only thing I can think of to work around this is to export the files
> and resize the resulting gif files, but perhaps there is another way.
>
> Kathy
>

[PK Huntzinger]

> Actually, I didn't even catch the fact that it was resizing the slide objects
> correctly - I was concentrating so hard on the text problems.

At least on my practice file, the graphics resized fine. Imported pictures and
charts, but not text. umm... except maybe lines, I can't remember exactly, but
they might have looked a bit funny on one slide.

> Maybe I can cycle
> through the slide and change all of the text fonts to sizes that match the
> degree of change in the slide size, then change the actual slide size. Hmmm...

guess that would be one way to do it. Seems a pain though.

> So what do I do to report the bug (I'm brand new to VBA)?

Reporting it? gee I don't know. no, actually, maybe I do. Seems on the
microsoft site under the "write us" was a choice to report problems with
software. they've changed things around since then though, lemme check
(twiddle your thumbs for a minute or two)

whew!! sure isn't easy to find anymore, but here's the URL:
http://register.microsoft.com/regwiz/regwiz.asp

> Does Microsoft Tech
> Support monitor this group?

uh, no. How does it go in Boston? the whosits talk to the whatsits and the
whatsits talk to god? same principle. the whosits (that would be you) talk to
the whatsits (that would be the other users and the MVPs) and the whatsits
bang their heads on the brick wall. ok, so the metaphor doesn't quite work,
but you get the idea.

Kathy

[Tom Russell]

Thanks.

PK Huntzinger wrote:
>
> whew!! sure isn't easy to find anymore, but here's the URL:
> http://register.microsoft.com/regwiz/regwiz.asp
>

[PK Huntzinger]

Looking for something else, I stumbled across this page also:

Microsoft Visual Basic Bug Report
http://support.microsoft.com/support/vbasic/vbbugrep.asp

wouldn't hurt to tell them a few times.

Kathy