In Word or Excel is there anyway to size photos before they are imported?

[KatyMac]

Or to size all the photos in a document?

Thanks

What do you mean "size"?

There's the physical size of the photo on the page that it's been dropped on to.

And then there's the amount of space, the file size, that the image takes up in the .doc (or .docx) file.

For powerpoint:

1. Paste the picture into the slide.
2. Resize it physically using the corner grab-handles.
3. Cut it
4. Paste-special as an enhanced metafile or png (which one works appears to vary)

Well if I insert 20 photos I get one a page (& tbh they are larger than each page)

I actually want 20 photos 10cms by 7.5cms (estimated)

My version of Word only lets me select and size one photo at a time so I can't see a way other than to select each one in turn and size it.

Putting photos into Word Documents can result in a huge file that can be a problem if you want to email it somewhere. So what you can do is that when you're done compress the pictures. In Word 2007 onwards that's available in the Format ribbon when a picture is selected. Select the option, let it be applied to all pictures and then select either "Print" or "Screen" depending on what you want the document for. Word will then throw away the "wasted" image data that won't be used if the file is printed or viewed on screen, and with big photos that can be a substantial saving.

Mine too - doing it individually can be a pain

I rarely email them & I compress when I do.

You might be better off using something like PhotoFiltre (free) to resize copies of your 20 photos.

It would mean loading them one at a time, saving -small.jpg and then use the image properties and change them, then save again.

Boring but do-able with 20 images.

On the other hand - {link} PIXresizer(free) might do what you want more easily !

(I just searched for 'free batch image resize')

"You might be better off using something like PhotoFiltre (free) to resize copies of your 20 photos."

I'd be cautious with something like that...

For a start Word might still decide to import the images as huge images rather than fitting them onto the page (as my Word does) or even making them 10cm by 7cm.

Secondly you then have to guess what size to actually make the images so that they still look good both on screen and in print.

An 800 x 600 photo might look good on screen, but printed at 10cm x 7cm it's going to look rough compared to the full sized original printed at that size.

You can do some clever calculations and work out the actual pixel image size by combining the DPI of your printer and the size you want to print, but that's fiddly, and to be honest I'd just rather leave it down to Word to work that out.

Katy, what do you want to do with them once imported?

I regularly have to print out the photos for dd's pre-school. To get 6 photos to a page I import them all they end up a photo on each silde. I then print but change the info under "print what" (2/3 of way down print box) to handouts. This prints 6 slides on one page.

I won't bother to argue different points here with you, BP but it may help to know if KM has tried importing smaller images and knows if her copy of Word will expand the images to be larger rather than attempting to fit them on page, and whether the plan is to print or e-mail this Word document, or create something else (eg web page) from it.

I use them in word (or Excel) documents with text to create 'observations' for the children's EYFS folders (& yes I am registered with the ICO ) & anything I have to do individually to each photo I can do in word/excel

If you are comfortable with Macros, the code below will do it. Otherwise you could copy 20 instances of a placeholder picture the right size and use right-click -> Change Picture, but that is a bit unwieldy too.

Here comes the macro:

Public Sub ResizePics()

Const CmToPoints As Double = 72 / 2.54

Dim oDoc As Document, oShape As InlineShape

Set oDoc = Application.ActiveDocument

For Each oShape In oDoc.InlineShapes
    
    oShape.Width = 10 * CmToPoints
    oShape.Height = 7.5 * CmToPoints

Next oShape

End Sub

I used to use Macros....many years (possibly decades) ago

Hmm I will have a play

Many, many thanks

You have saved me about an hour or so a week & I can do different Macros for each size I need

Thanks so much

No problem.

If you want different size images, you can get more sophisticated setting sizes based on styles like this:

If oShape.Range.Style = "Foo" Then ...

No - I'll be lazy & just change the size in the Macro

Could you use the same Macro in Excel?

Slightly different for Excel:

Public Sub ResizePics()

Const CmToPoints As Double = 72 / 2.54

Dim oBook As Workbook, oSheet As Worksheet, oShape As Shape

Set oBook = Application.ActiveWorkbook

For Each oSheet In oBook.Worksheets
    
    For Each oShape In oSheet.Shapes
    
        oShape.Height = 5 * CmToPoints
        oShape.Width = 7 * CmToPoints

    Next oShape

Next oSheet

End Sub

...for every sheet, or just

Public Sub ResizePics()

Const CmToPoints As Double = 72 / 2.54

Dim oSheet As Worksheet, oShape As Shape

Set oSheet = Application.ActiveSheet
        
    For Each oShape In oSheet.Shapes
    
        oShape.Height = 5 * CmToPoints
        oShape.Width = 7 * CmToPoints

    Next oShape

End Sub

... for the current sheet

Thanks - saving time all over the place