|
|
#3
03-01-2017, 08:35 AM
|
|||
|
|||
DesiredHeight = InputBox("Enter desired height for images:", , 400)
For Each ishape In ActiveDocument.InlineShapes With ishape ImageWidth = .Width ImageHeight = .Height NewHeight = DesiredHeight NewWidth = Round(NewHeight * ImageWidth / ImageHeight) .Height = NewHeight .Width = NewWidth End With Next 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Change font sizes in template | Calab | PowerPoint | 1 | 12-23-2013 09:29 AM |
 Header Footer - can not change sizes
|
gldntrdrps | Word | 3 | 10-16-2012 01:53 PM |
|
data change how to convert to original
|
gsrikanth | Excel | 6 | 12-30-2011 08:01 AM |
|
Need help copy and pasting from internet to word, font change sizes.
|
pearce88 | Word | 3 | 11-19-2009 11:27 PM |
|
Type spacing and point sizes in Word
|
funky | Word | 3 | 01-14-2009 09:18 PM |
Windows 10 
Office 2013
Threaded Mode