#1
|
|||
|
|||
Reduce Pictures to Same Vertical Size With A Macro
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. Last edited by booksgalore; 08-14-2018 at 03:59 PM. Reason: Change paragraph spacing |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
macro, picture size, reduce |
Thread Tools | |
Display Modes | |
|
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 |