#1
|
|||
|
|||
Resize multiple pictures in a Word 2010 table
I have several dozen pictures that I have inserted into a table in Word 2010. There is one picture in each cell. I would like to be able to click on a picture and activate the macro which would first unlock the aspect ratio and then reset the height to 3.8 inches and the width to 2.75 inches.
In this forum, I have learned that I can unlock the aspect ratio and resize the first picture, then click subsequent pictures and press F4 to repeat this action. Because I'm going to have to add multiple pictures from time to time, I would greatly appreciate a macro that would do this for me. |
#2
|
||||
|
||||
Assuming your pictures are inserted in-line, try:
Code:
Sub Demo() Dim iShp As InlineShape For Each iShp In ActiveDocument.Tables(1).Range.InlineShapes With iShp .LockAspectRatio = False .Height = InchesToPoints(3.8) .Width = InchesToPoints(2.75) End With Next End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Resize and distribute width - 2 pictures | AndyDDUK | PowerPoint | 2 | 10-10-2012 03:38 AM |
Word VBA: Resize Table Width??? | tinfanide | Word VBA | 5 | 04-21-2012 03:00 PM |
Resize video across multiple slides | joelas | PowerPoint | 3 | 09-28-2010 07:59 PM |
Resize-to-fit Table Columns (PowerPoint) | icu222much | PowerPoint | 0 | 06-06-2010 11:21 AM |
Resize Email pictures in Outlook - Office 2007? | jonesnewton | Outlook | 0 | 05-16-2010 04:11 AM |