Reduce Pictures to Same Vertical Size With A Macro

booksgalore · #1 08-14-2018, 03:57 PM

I frequently download and print (for personal use) articles from the web into Word that have numerous pictures in them.

I would like a macro that can reduce each graphic individually to .7" high when I click on it (they're not in tables, just in text).

Currently I have Picture Size on my Quick Access Toolbar and have to click up to the Toolbar, reduce the size to .7", then return to the text, but a macro would certainly be quicker.

macropod · #2 08-14-2018, 05:42 PM

You could use a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Shp As Shape, iShp As InlineShapes
With Selection
  For Each Shp In .ShapeRange
    With Shp
      .LockAspectRatio = True
      .Height = InchesToPoints(0.7)
    End With
  Next
  For Each iShp In .InlineShapes
    With iShp
      .LockAspectRatio = True
      .Height = InchesToPoints(0.7)
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Simply select the range to process before running it.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Does Onenote automatically reduce the size of files?	Antisthenes	OneNote	0	06-13-2016 03:56 AM
Macro to insert multiple pictures with adjustable column size	nando88	Word VBA	6	05-09-2016 11:56 PM
Reduce size of all pictures in presentation	Jake2015	PowerPoint	1	03-05-2015 12:38 PM
Macro to insert multiple pictures to word to a specific size and text wrap	mescaL	Word VBA	3	11-03-2014 10:51 PM
Reduce file size of pasted images (Outlook new msg)?	Josh	Outlook	2	12-01-2010 02:27 AM