Resize Multiple Imgaes

  • Thread starter Thread starter John Gregory
  • Start date Start date
J

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?
 
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
 
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?
 
Nope, that always works for me

John Gregory said:
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?
Click to expand...
 
Yes, that is exactly what I did. Is there a setting somewhere that needs to
be turned on of off for that to work?
 
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*
 
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
 
The macro works great! Thank you for your help.

DeanH said:
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
Click to expand...
 
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
 
Back
Top