You are here:

Microsoft Word/Word resize all pictures

Advertisement


oldmassspectrscopist wrote at 2008-04-08 10:09:48
Re Dales suggestion

I had to use SHIFT not CONTROL and select each picture individually until all were slected. Then followed Dale's excellent suggestion.



If you want to change portrait/landscape do it first


esavazzi wrote at 2008-10-20 15:13:10
The above macro does not wor for me (in Word 2007). It does cycle through all document images and does work for the first image, but all subsequent images are set to the size of the first one :-(


tkp wrote at 2009-07-06 21:36:37
This Macro works fine in MS-Word 2003.  It does work on ALL images in the document, so will either require modification of the Macro or splitting of the document if you need multiple image sizes.  In MS-Word under Tools, Macro, Create, then paste in the text given from the second macro.  To Run the Macro, Tools, Macro, Run, select the Macro name.  You will then be prompted for the Percent scaling to be applied to all images.  Thank you for the Macro!! This is a big timesaver when you have lots of images.  I think Microsoft should have a set of defaults that you can set on importing a graphic so that all come out with the same size and other formatting attributes.


AK72 wrote at 2010-11-11 15:31:43
Hi,

to my knowledge, the description above is far to complicated.

I can share it with you something less painful, which is:



Right-click in one of your 30 pics (word doc) / choose FORMAT PICTURE / COMPRESS / Seelect ALL PICTURES IN DOC / Change RESOLUTION (3 options) & hit OK.



That's all folks.  


Frederick von Frederick wrote at 2011-02-01 19:09:43
Thanks for the posts above.  I was struggling in finding something to mass edit pictures for reports in word.  This gave me the much needed help.  One of my coworkers likes to size pictures for reports to a certian height or width and I thought it might be nice to have one that keeps the aspect ratio, but will size the height or width by inches as opposed to percentages. This is a mod of the previous code posted.  I would consider myself still a beginner at VB/VBA, but here it is.  This was created in Word 2010.



Sub AllPictResize()

   Dim DimensionSize As Integer

   Dim oIshp As InlineShape

   Dim Answer As Integer

       

       '1 inches = 72 PostScript points

       Answer = Msgbox _

       ("Would you like to modify Height?(Select No for Width)", _

       vbYesNo, "Resize Photos")

         Select Case Answer

         Case 6

         On Error Resume Next

         DimensionSize = InputBox("Enter Height in Inches", _

         "Resize Picture", 5) * 72

         If Err.Number = 13 Then GoTo 10

         For Each oIshp In ActiveDocument.InlineShapes

         With oIshp

         .Height = DimensionSize

         .LockAspectRatio = msoTrue

         End With

         Next oIshp

         For Each oshp In ActiveDocument.Shapes

         With oshp

         .Height = DimensionSize

         .LockAspectRatio = msoTrue

         End With

         Next oshp

         Case 7

         On Error Resume Next

         DimensionSize = InputBox("Enter Width in Inches", _

         "Resize Picture", 5) * 72

         If Err.Number = 13 Then GoTo 10

         For Each oIshp In ActiveDocument.InlineShapes

         With oIshp

         .Width = DimensionSize

         .LockAspectRatio = msoTrue

         End With

         Next oIshp

         For Each oshp In ActiveDocument.Shapes

         With oshp

         .Width = DimensionSize

         .LockAspectRatio = msoTrue

         End With

         Next oshp

         

         End Select

10

End Sub



Hope this is helpful for someone! Thanks again.


Jeremy wrote at 2014-04-06 15:44:21
I select each with the Shift key; but you can type in a % in the size box and not just a numeric.



This will let you resize all selected to, say, 50%. The width box will copy same %.



Found by desperation!


About Microsoft Word
This topic answers questions related to Microsoft Word stand-alone or Microsoft Office Word including Word 2003, Word 2007, Office 2000, and Office XP. You can get Word help on formatting text, tables, tabs, fonts, styles, general Word layouts, bullets, headings, and outlines, using templates, toolbar modifications, and using Track Changes. You may also find tips on linking Word and Excel embedded objects including charts. This site does not provide a general Word tutorial nor the basics of using a word processor. It provides specific answers to using Microsoft Word only. If you do not see your Word question answered in this area then please ask a Word question here

Microsoft Word

All Answers


Answers by Expert:


Ask Experts

Volunteer


Dale F. Wiley

Expertise

I must report that I donít use Word 2003, 2007 or 2010 and have yet to be convinced that I need them. Microsoft Word 97 Microsoft Word 2000 Microsoft Word 2002 Please note: I will not answer questions about Fields, Statements, Formulas, Macros, creating and writing specific macros, VBA (Visual Basic Editor) and the Microsoft Script Editor I am willing to answer questions about: Envelopes, Mailing Labels, Database, Graphics, WordArt, Interactive Forms, Formatting, Faxes, Letters, Lists, Newsletters, Tables, Web Pages, Email, Hyperlinks, Bookmarks, HTML, Table of Contents, Footnotes, Endnotes, AutoText, AutoCorrect, Headers and Footers, Converting Documents, Customizing Toolbars and Toolbar Icons, Margins, Page Settings, Layout, Dictionaries, Languages, Find and Replace, Mail Merge, Printing, Saving Cut, Copy, Paste, Paste Special, Office Clipboard, Keyboard Shortcuts, Font Lists, Customizing, Options, Templates, Bullets, Numbering, Borders, Using Themes, Fields, Symbols, Document Map, Find and Replace, etc.

Experience

Microsoft Office and Microsoft Word in particular is one of the most popular programs that our firm, Computer Help provides instruction, one on one tutoring and consultation. I personally use MS Word for almost every task: Envelopes, Mailing Labels, Database, WordArt, Interactive Forms, Faxes, Letters, Lists, Newsletters, Tables, Email Editor and much more. The exception, Graphics and Web Pages. For graphics I use Ulead's PhotoImpact and Microsoft's FrontPage for web site design.


Publications

Our column, COMPUTER Help's Q&A The Internet - E-mail,
appears in the Sun City Center PC Computer Club's Newsletter.


Education/Credentials
Formerly the #1 rated Microsoft Word Expert at Askme.com since volunteering there in December 2000. In that time, responding to thousands of questions most of which were specific to Microsoft Word.

©2016 About.com. All rights reserved.