Resize Multiple Imgaes

[John Gregory]

I frequently have to insert multiple images into a document, and they are
usually different sizes.

Is there an easy way to select all of the images and resize them at one time
in place of resizing each image individually?

 

[PJY]

Yes, click on just one of the images, then holding Ctrl and Shift down at the
same time, select the other images, then right click and you will see the
option for format picture, select the size you desire, OK and you're done

 

[John Gregory]

I am not able to select multiple pictures. If I try using CTRL or
CTRL+SHIFT, it only selects one picture at a time - the last one I click on.
If I drag to select multiple, or select holding down SHIFT, then the format
picture editing menu is not available.

Any other ideas?

 

[PJY]

Nope, that always works for me

I am not able to select multiple pictures. If I try using CTRL or
CTRL+SHIFT, it only selects one picture at a time - the last one I click on.
If I drag to select multiple, or select holding down SHIFT, then the format
picture editing menu is not available.

Any other ideas?

 

[PJY]

Hint - you have to keep holding Ctrl+Shift while selecting each picture

 

[John Gregory]

Yes, that is exactly what I did. Is there a setting somewhere that needs to
be turned on of off for that to work?

 

[Bob Buckland ?:-\)]

Hi John,

What version of Word are you using?

============
Yes, that is exactly what I did. Is there a setting somewhere that needs to
be turned on of off for that to work? <<
--

Bob Buckland ?
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

 

[John Gregory]

Windows XP SP2, MS Office 2003 SP1

 

[DeanH]

If the images are floating (ie 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.
If the Images are InLineWith then the following macro will change all in one
click.


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 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.
You don't say want Word version you are using, the above is mainly for 2003
and prior but will indicate were to go with 2007.
Hope this helps
DeanH

 

[John Gregory]

The macro works great! Thank you for your help.

If the images are floating (ie 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.
If the Images are InLineWith then the following macro will change all in one
click.


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 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.
You don't say want Word version you are using, the above is mainly for 2003
and prior but will indicate were to go with 2007.
Hope this helps
DeanH

 

[DeanH]

You are welcome,
I got the macro initally from someone on this site, cannot remember who -
age-onset-moment ;-) and tinkered with it to its present state.
Glad it works for you.
All the best