Word

From Leo's Notes
Last edited on 10 August 2022, at 18:11.

Tasks[edit | edit source]

Resize all images[edit | edit source]

There is no easy way to resize all images in a document because you cannot select multiple images in Microsoft Word. To manually resize all images, you would have to double click on each and every image and changing the height/width manually.

Alternatively, you can use the following vbscript macro which I found at https://erictummers.com/2011/03/29/resize-image-in-word-with-macro/.

  1. Select the portion of the document containing your images, or hit Ctrl + a to select the entire document
  2. Hit Alt + F11. In the VB window, insert a new module: Insert -> Module. Paste the following macro:
    Sub ResizeImages()
        Dim shape As InlineShape
        For Each shape In Selection.InlineShapes
            shape.LockAspectRatio = msoTrue
            shape.Width = CentimetersToPoints(15)
        Next
    End Sub
    
  3. Hit F5 or click on the 'Run' button. The images should be resized.