I've searched for help on this, but couldn't find exactly what I'm looking
for.  

I'm pasting images as inline shapes in a Table.  I want to resize all of
them to the same width, say 1 inch (or the equivalent in pixels).  I've tried
recording a macro that does this, but am having trouble.  The pasted images
may vary a little in proportions, so I want to lock proportions when I do the
resize.  This is very easy within Word, but I'm having trouble doing it in
VBA.

What I'd really like is to take action on the select shape, so as soon as I
paste it, I can resize it.  I had a hard time getting a "selection" option to
work, so I shifted to using the Inlineshapes collection.  Below is the code I
was trying to use.

For Each ishape In ActiveDocument.InlineShapes
   ishape.LockAspectRatio = msoTrue
   ishape.Width = 86.4  'Number is what was recorded
Next ishape

Problem is that the aspect ratio line isn't working, and my shapes are being
distorted.  Any suggestions?

Todd