Microsoft Office Forums Reduce Pictures to Same Vertical Size With A Macro

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-14-2018, 03:57 PM
booksgalore booksgalore is offline Reduce Pictures to Same Vertical Size With A Macro Windows 10 Reduce Pictures to Same Vertical Size With A Macro Office 2016
Novice
Reduce Pictures to Same Vertical Size With A Macro
 
Join Date: Aug 2018
Posts: 1
booksgalore is on a distinguished road
Default 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
Reply With Quote
  #2  
Old 08-14-2018, 05:42 PM
macropod's Avatar
macropod macropod is offline Reduce Pictures to Same Vertical Size With A Macro Windows 7 64bit Reduce Pictures to Same Vertical Size With A Macro Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 19,535
macropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to beholdmacropod is a splendid one to behold
Default

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.
__________________
Cheers,
Paul Edstein
[MS MVP - Word]
Reply With Quote
Reply

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 Pictures to Same Vertical Size With A Macro Reduce size of all pictures in presentation Jake2015 PowerPoint 1 03-05-2015 12:38 PM
Reduce Pictures to Same Vertical Size With A Macro 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 Pictures to Same Vertical Size With A Macro Reduce file size of pasted images (Outlook new msg)? Josh Outlook 2 12-01-2010 02:27 AM


All times are GMT -7. The time now is 08:37 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft