Resize multiple pictures in a Word 2010 table

JBA479 · #1 01-24-2014, 01:07 PM

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.

macropod · #2 01-24-2014, 08:51 PM

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

Although this will do as you ask, I'm not sure disabling the LockAspectRatio is a good idea. That might result in some images getting messed about.

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