Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Change all images to a specific size in word

Posted on 2014-07-22
3
Medium Priority
?
340 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 10

Accepted Solution

by:
Gašper Kamenšek earned 2000 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:Gašper Kamenšek
ID: 40210982
Hi,
I changed it a bit in the previous post. Try it out now.
0

Featured Post

Linux Academy Android App Now Supports Chromecast

We have some fantastic news for our Android fans. We’re so excited to announce that the Linux Academy Android app is now available with Chromecast support. That’s right – simply download the latest update of the Linux Academy App and start casting your favorite course videos!

Question has a verified solution.

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

This article is meant to give a basic understanding of how to use R Sweave as a way to merge LaTeX and R code seamlessly into one presentable document.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This Micro Tutorial well show you how to find and replace special characters in Microsoft Word. This is similar to carriage returns to convert columns of values from Microsoft Excel into comma separated lists.
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.

715 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