Solved

Change all images to a specific size in word

Posted on 2014-07-22
3
326 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

Webinar: Aligning, Automating, Winning

Join Dan Russo, Senior Manager of Operations Intelligence, for an in-depth discussion on how Dealertrack, leading provider of integrated digital solutions for the automotive industry, transformed their DevOps processes to increase collaboration and move with greater velocity.

Question has a verified solution.

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

I would like to show you some basics you can do with Mailings in MS Word. It´s quite handy feature you can use for creating envelopes, labels, personalized letters etc. First question could be what is this feature good for? Mailing can really he…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
The viewer will learn how to count occurrences of each item in an array.
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

828 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