Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 347
  • Last Modified:

Change all images to a specific size in word

Change all images to a specific size in word

I have 1000's of images in a word file and want all to be Height : 4.64 cm and Width 4.24 cm
Any easy way to achieve this
Thanks
0
mtthompsons
Asked:
mtthompsons
  • 2
1 Solution
 
Gašper KamenšekExcel MVPCommented:
This will help you
Sub ResizeAllImages()
''# make all images (both inline and floating)
''# 4.24 cm wide and 4.64 cm high

Dim oShp As Shape
Dim oILShp As InlineShape

For Each oShp In ActiveDocument.Shapes
    With oShp
.LockAspectRatio = msoFalse
        .Width = CentimetersToPoints(4.24)
        .Height = CentimetersToPoints(4.64)
    End With
Next

For Each oILShp In ActiveDocument.InlineShapes
    With oILShp
.LockAspectRatio = msoFalse
        .Width = CentimetersToPoints(4.24)
        .Height = CentimetersToPoints(4.64)
    End With
Next
End Sub

Open in new window

0
 
Gašper KamenšekExcel MVPCommented:
Hi,
I changed it a bit in the previous post. Try it out now.
0
 
mtthompsonsAuthor Commented:
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now