Follow-Ups to Answer from Expert Dale F. Wiley

---

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.

---