Inserting and Resizing Multiple Pictures

[nate]

I am looking for a way to insert and resize multiple pictures at the same
time. Is this a current feature with Word 2007. If not, is there a Macro i
can use to do so?

Thanks for your help.

 

[DeanH]

If the Images are InLineWithText then the following macro will change all in
one
click. Be aware that embedded files displayed as icons are considered
Graphic InLineWithText so these will be resized.
I got the macro initally from an MVP on this site, cannot remember who and
have augmented it to its present state.

Sub ResizePictureWidth()
' Macro to Resize ALL pictures in the document

Dim inshpPower As InlineShape
Dim sngOldWidth As Single
Const sngNewWidth As Single = 13.5
With ActiveDocument
If .InlineShapes.Count > 0 Then
For Each inshpPower In .InlineShapes
With inshpPower
sngOldWidth = .Width
.Width = CentimetersToPoints(sngNewWidth)
.Height = CentimetersToPoints(((.Height * sngNewWidth) /
sngOldWidth))
End With
Next
Else
MsgBox "There are no shapes in this document.", _
vbExclamation, "Cancelled"
End If
End With
End Sub

This macro is set for width of 13.5cm, so you may need to change this for
your needs
and units.
see http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm for help with macros.

If the images are floating (i.e. not set with the InLineWithText) the you can
use the Select Multiple Objects (the icon is found on the Drawing Toolbar
under Customize).
Beware this may select objects you don't want to change, so tread carefully
- maybe work on a copy of the document.

 

[DeanH]

Sorry, this macro will do the Inserting for you, but will resize the images
once inserted.
With the Insert Picture from Icon (2003 terminology not sure about 2007) you
can mulit select the image files, which can then be inserted in one go.
In Tools, Options, Edit menu (again 2003 terminology) there is the option to
tell Word what Picture Layout you want Inserted pictures to be automatically,
you can choose the InLineWithText option instead of the other floating
options.

I have the Insert Picture and this macro (I created one) as icons on my
toolbar, you can probably add these to the QAT.