How to Batch Rotate Multiple Images in MS Word

In this tutorial, we'll focus on how to batch rotate numerous photos in a Word document.

In addition to having strong word processing capabilities, Word can also do image processing. For instance, using the picture tools in the ribbon, you can edit one image at a time. You are aware that the built-in feature can completely meet your need to rotate a single image. In this tutorial, we will show you how to batch rotate multiple images to the same degree.

Method 1: Rotate Multiple Images in a Selection

1.     Firstly, make a selection over several images. You have to select the images like you select the letters and words.

2.     Now press “Alt+ F11” to open VBA editor in Word or you can go to developer menu and Click Visual Basic.

 

3.     Next click on “Normal” and click “Insert” tab in the main menu.

4.     Then choose and select “Module”.

 

5.     Open the new module by double clicking on it.

6.     Then on the editing space on the right, paste the following codes:

 

Sub RotateAllImagesInSelection()

Dim objInlineShape As InlineShape

Dim objShape As Shape

Dim strDegree As String

Application.ScreenUpdating = False

 strDegree=InputBox("Enter a rotation degree: ")

Set objDoc = ActiveDocument

 For Each objInlineShape In Selection.InlineShapes

Set objShape = objInlineShape.ConvertToShape

objShape.IncrementRotation strDegree

Set objInlineShape = objShape.ConvertToInlineShape

Next objInlineShape

 Application.ScreenUpdating = True

End Sub

 

 

7.     Next click on “Run”. 

8.     There will be an input dialog box where you can enter a rotation degree and click “OK” to proceed.

Then you will only have images in selection rotated.

RESULT:

  

Method 2: Rotate All Images in a Document

1.     Now with this method you can rotate all the images in document at once with this code. Paste this code in the module window and click Run.

 

Sub RotateAllImagesInDoc()

  Dim objInlineShape As InlineShape

  Dim objShape As Shape

  Dim strDegree As String

  Dim objDoc As Document

   Application.ScreenUpdating = False

   strDegree=InputBox("Enter a rotation degree: ")

  Set objDoc = ActiveDocument

   For Each objInlineShape In objDoc.InlineShapes

    Set objShape = objInlineShape.ConvertToShape

    objShape.IncrementRotation strDegree

    Set objInlineShape = objShape.ConvertToInlineShape

  Next objInlineShape

   Application.ScreenUpdating = True

End Sub

3.     Now input a rotation degree in the input box. Just enter a number and click “OK” to proceed.

4.     Here you go, you have succeed in rotating all the images in the word document in just few seconds.