Resizing an Image in PowerPoint 2007

Question

I looked around. All I managed to find was resizing in Excel or through Excel.

I insert a picture from pdf and need to change and position one click.

Answer 1

I finally got it. Here is what I did, just in case someone is facing the same problem. This resizes the image, sets it to the desired position and sends it back.

Sub Resize() With ActiveWindow.Selection.ShapeRange .Height = 2.78 * 72 //72 is the multiplier for the inch .Width = 4.17 * 72 .Left = 0.78 * 72 .Top = 1.25 * 72 .ZOrder msoSendToBack // This sends picture to the back End With End Sub 

Answer 2

Thanks for the code. I wanted to be able to automatically resize screenshots to fit the size of the slide. I guess other people will need to do this too, so I am posting what I did.

Firstly, in PowerPoint 2010, in the page setup, I set the slides in 16: 9 format to fit the proportions of my monitor / screen shots. Then I added a blank slide and inserted an image for each screenshot. Then I ran this code:

 Sub ResizeAll() For each tSlide in ActiveWindow.Presentation.Slides tSlide.Select With tSlide.Shapes.Item(1) 'assume a blank slide with one image added only .Select .Height = ActiveWindow.Presentation.PageSetup.SlideHeight .Width = ActiveWindow.Presentation.PageSetup.SlideWidth .Left = 0 .Top = 0 End With Next End Sub 

Answer 3

To fit the image on the slide (change the height and width as required):

pptSlide.Shapes (1) .Height = 850: pptSlide.Shapes (1) .Width = 650