If you need to work with rows of varying height, replace .Height in:
sHght = .Height
with whatever number of points you need the pictures to be.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]