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.
Link for Steps:
https://thinkeasytv.blogspot.com/2022...
---------------------------------------------------------------------------
Contents of this video:
--------------------------------------------------------------------------
00:00 Intro
00:45 Method1:Batch Rotate the selected multiple images only
01:55 Method2:Batch Rotate the all multiple images in document

_____________________________________________
Rotate only selected images
______________________________________________
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


_____________________________________________
Rotate all multiple images at once
______________________________________________

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