VBA Code for Resizing PowerPoint Page Size without Skewing Pictures

Question

Hello, I have many PowerPoint 2010 file that each contains hundreds of pages.  Each page is 19" x 19" and contains a single picture and nothing else.  The pictures are different on different pages. I'd like to change the page size to 17" x 11" and the position the picture on each page so that the bottom left corner of the picture coincides with the bottom left corner of the page. 

Is there a way to do this in batch using VBA codes?

The best would be to do this in the same file, but if it is more convenient to copy the pictures one by one into a new file that has the 17" x 11" page size, that works too.

Thank you so much!  It would save me a lot of time.  I appreciate it!

Answer 1

Hi,

As John's mentioned, this can be trickier than it appears at first blush (though your particular situation does simplify things compared to the general problem of resizing any old PPT).

I have a commercial  resizing add-in that will get you most of the way there:

My PPTools RESIZE add-in

The free demo will allow you to test it thoroughly; it will create a resized version of your presentation containing the first five slides of the original (which it will not touch).

It won't reposition the images as you've described, but if you want to give it a try and then post a link to a resized presentation or two in reply here, I'll be happy to have a go at writing a bit of VBA to take it the rest of the way.  I can't guarantee that it'll be possible, but at these prices (nada), you wouldn't be risking much.

Answer 2

You would have to resize the presentation, then iterate through each shape on each slide, identify which shapes are pictures, then reset the size to be the same percentage for both width and height. There are some very talented programmers here, but this is not a free macro-writing service. Please post the code you have developed to date.