Just a little snippet to resize and rotate all images in a Word 2010 document. I needed it to create a table with multiple images per row/column from some dragged and dropped images.
Const ROTATION = 90
Const HEIGHT = 7
Dim n As Integer
For n = 1 To ActiveDocument.InlineShapes.Count
.ScaleHeight = HEIGHT
For n = 1 To ActiveDocument.Shapes.Count
Apparently, you have to convert the inserted images from InlineShape to Shape and back as both types provide different methods (e.g. only Shape offers IncrementRotation).