Macro to paste bunch of images at desired size in microsoft Word 2010.

[gmayor]

You can intercept the paste command and use it to paste and format e.g. as follows, but it will paste ALL images at the size you indicate.
See also http://www.gmayor.com/photo_gallery_template.html

Sub EditPaste()
Dim iShp As InlineShape
Dim oRng As Range
    Set oRng = Selection.Range
    oRng.Paste
    For Each iShp In oRng.InlineShapes
        With iShp
            If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
                .LockAspectRatio = msoTrue
                .Height = 141.64
            End If
        End With
    Next iShp
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub