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