How to quick resize multiple pictures and charts in Ms Word

Sajan Awal February 20, 2018
Are you tired of your office document work containing numerous pictures and charts?

Think easy and innovative.
There is a way you can change and resize your pictures and charts in just a click.
Have you heard about VBA coding? If yes just go straight for code below, if not lets learn just in a minute.
First open your document in which you have pictures and charts that needs to be resized at once.

Then, if you don't have developer option tab in menu section, follow this procedure.
-Right click on menu tab.

-click on customize quick access toolbar.

 -select Customize ribbon tab and in choose command from drop down list to click for Main tabs.
-Then click Developer tab and click ADD button and press OK.

 -Now goto Developer menu tab and Click Visual Basic editor.

-Now Add a module and Type the code on the module window.
See the changes to size of pictures:

CODE FOR RESIZING THE PICTURES:

Sub resize()
Dim x As Long
With ActiveDocument
For x = 1 To .InlineShapes.Count
With .InlineShapes(x)
.Height = InchesToPoints(2)
.Width = InchesToPoints(3)
End With
Next x
End With
End Sub

Hope you find a easy method for your resizing mass pictures. This can be done in every office packages like in excel,powerpoint as well. Thank you.
If you find my content good, Please like, follow and subscribe as well.
Tags:

Post a Comment

7 Comments

  1. UnknownDecember 24, 2019 at 2:12 AM

    very valuable

    ReplyDelete
  2. UnknownJanuary 3, 2020 at 9:58 AM

    If you want all the pictures to be a certain height without word doing the resizing of the width you can just delete the width and it'll resize all the pictures to the same height

    Sub resize()
    Dim x As Long
    With ActiveDocument
    For x = 1 To .InlineShapes.Count
    With .InlineShapes(x)
    .Height = InchesToPoints(2)
    End With
    Next x
    End With
    End Sub

    ReplyDelete
  3. Free Android APPSJanuary 6, 2020 at 5:56 AM

    if you want to edit in your mobile phone so install Background remover

    ReplyDelete
  4. UnknownMarch 23, 2020 at 9:00 AM

    great

    ReplyDelete
  5. UnknownJune 1, 2020 at 11:25 PM

    Its nt happening
    Getting runtime error 424
    When i clicked on debug the 4th line is getting yellow highlighted which is for x =1 .....
    Plz assist

    ReplyDelete
  6. Deepak GuptaJanuary 27, 2022 at 2:22 AM

    How can I put border on multiple images in my word document?

    ReplyDelete
  7. Mocanu Stefan Romania Aiud monastery prison saintsFebruary 16, 2022 at 2:54 PM

    how do i resize a GROUP of picture at once, and not the whole document?

    ReplyDelete