Help resizing an image

[andysjp]

Paul, this works flawlessly on our Windows 10 laptops but we still have some users on Win 7. The macro needed some slight tweaking to get it to run without syntax errors on theirs, but I managed to do that. However, the ConvertToShape line seems to destroy the image quality on the Windows 7 machines. It keeps it high quality on Win 10 though! Any idea how your macro could be modified to work on both Win 10 and Win 7 and keep good image quality on both?

[macropod]

this works flawlessly on our Windows 10 laptops but we still have some users on Win 7. The macro needed some slight tweaking to get it to run without syntax errors on theirs

The Windows version has nothing to do with the code, so that's not the issue. Furthermore, the code would be the same for all Word versions from 2000 onwards. Evidently, your Win 7 users are using a different version of the document as well, with a lower-quality version of the image, which would explain:

the ConvertToShape line seems to destroy the image quality on the Windows 7 machines