Hi styleruk,
You could use a macro like:
Code:
Sub InsertPicture()
With Application.Dialogs(wdDialogInsertPicture)
If .Show = -1 Then
With Selection
.MoveStart wdCharacter, -1
With .InlineShapes(1)
.LockAspectRatio = True
.Width = InchesToPoints(3)
End With
.Collapse
End With
End If
End With
End Sub
This macro runs the normal InsertPicture dialogue, but then resizes the inserted pic to 3in wide and scales the height to suit. You can change the '3', use .Height instead of .Width and use 'CentimetersToPoints' instead of 'InchesToPoints', if you prefer. You could assign the macro to a keyboard shortcut and/or the QAT.