Solved

How to scale all images in a Word document

Posted on 2009-03-29
2
1,236 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

Are your AD admin tools letting you down?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

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…
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…
In this video, we show how to convert an image-only PDF file into a PDF Searchable Image file, that is, a file with both the image (typically from scanning) and text, which is created in an automated fashion with Optical Character Recognition (OCR) …
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 …

770 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