How to scale all images in a Word document

I need a macro that will scale all images in a document to 100% height x 100% width.  Not sure how to do this.
swexler100Asked:
Who is Participating?
 
RapidDelpConnect With a Mentor Commented:
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
 
swexler100Author Commented:
Terrific.  This works great.  Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.