Solved

Change all images to a specific size in word

Posted on 2014-07-22
3
321 Views
Last Modified: 2014-07-22
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
Comment
Question by:mtthompsons
  • 2
3 Comments
 
LVL 10

Accepted Solution

by:
GasperK earned 500 total points
ID: 40210954
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
 
LVL 10

Expert Comment

by:GasperK
ID: 40210982
Hi,
I changed it a bit in the previous post. Try it out now.
0
 

Author Comment

by:mtthompsons
ID: 40211020
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Nice table. Huge mess. Maybe this was something you created way back before you figured out tabs or a document you received from someone else. Either way, using the spacebar to separate the columns resulted in a mess. Trying to convert text to t…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Office 365 is currently available in five editions. Three of them are for business use: Office 365 Business Essentials, Office 365 Business, and Office 365 Business Premium. Two of them are for home/personal use: Office 365 Home and Office 365 Perso…
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

27 Experts available now in Live!

Get 1:1 Help Now