Whenever I need to walk through a wizard I make screenshots of the steps. This comes in handy when someone else needs to do the same thing or just for logging purpose. The screenshots come in a Word document. To resize these images to minimize the number of pages I use this macro:
Sub ResizeImage()
'
' ResizeImage Macro
' Selected image(s) are resized to 5 cm in width
'
Dim shape As InlineShape
' iterate all selected shapes
For Each shape In Selection.InlineShapes
' remain aspect ratio
shape.LockAspectRatio = msoTrue
' set with to 5 cm
shape.Width = CentimetersToPoints(5)
Next
End Sub
Every Image selected (CTRL+A) will be resized to 5cm with aspect ratio locked. I pinned the macro to the Word Quick Access Toolbar for easy access.
Requested code by Nano07 with al little help from Graham Mayor
Sub ResizeImage()
'
' ResizeImage Macro 2
' Selected image(s) are scaled to 100% and moved behind text in top left corner of the page
'
Dim shape As InlineShape
Dim shapeRange As shapeRange
' iterate all selected shapes
For Each shape In Selection.InlineShapes
' remain aspect ratio
shape.LockAspectRatio = msoTrue
' set with to 100 %
shape.ScaleWidth = 100
' convert to shape to get a shaperange
shape.ConvertToShape
Set shapeRange = Selection.shapeRange
' position relative to the page
shapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
shapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage
' anchor to 0.0
shapeRange.Top = 0
shapeRange.Left = 0
' set to behind text
shapeRange.WrapFormat.Type = wdWrapBehind
Next
End Sub


