Solved

How to scale all images in a Word document

Posted on 2009-03-29
2
1,228 Views
Last Modified: 2012-05-06
I need a macro that will scale all images in a document to 100% height x 100% width.  Not sure how to do this.
0
Comment
Question by:swexler100
2 Comments
 
LVL 4

Accepted Solution

by:
RapidDelp earned 125 total points
ID: 24016936
For word 2003, as long as the image can be scaled, this will do it.
Sub macro2()

    Dim s As InlineShape

    Dim d As Document

    

    Set d = Application.ActiveDocument

    

    For Each s In d.InlineShapes

        Select Case s.Type

            Case wdInlineShapeLinkedPicture, _

                wdInlineShapePicture

                s.ScaleHeight = 100

                s.ScaleWidth = 100

            Case Else

                ' s.Type

        End Select

    Next

    

End Sub

Open in new window

0
 

Author Closing Comment

by:swexler100
ID: 31564156
Terrific.  This works great.  Thanks.
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

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…
Microsoft Word is a program we have all encountered at some point, but very few of us have dug deep into its full scope of features, let alone customized it to suit our needs. Luckily making the ribbon (aka toolbar, first introduced in Word 2007) wo…
The viewer will learn how to make their project stand out over others by learning how to change colors and shapes, add spaces, change directions, and add bullets to their charts.
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.

746 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

13 Experts available now in Live!

Get 1:1 Help Now