How to resize all Images at once with single click with same width and height in MS Word without aspect ratio

1. In Menu Bar go to "View" then select "Macros -> View Macros"
2. Create new Macro and use following code

Sub ResizePhotos()

    Dim pic As InlineShape

    

     For Each pic In ActiveDocument.InlineShapes

        With pic

            .LockAspectRatio = msoFalse

            If .Width = 1 Then ' horizontal

                

            Else  ' vertical

                .Width = InchesToPoints(3.5)

                .Height = InchesToPoints(3.5)

            End If

        End With

    Next

End Sub

    3. All done. Now insert pics and by pressing alt+f8 u can use run above macro. All pics will be resized with same width and height (3.5). You can change the value (3.5) to your own value.