You really don't need textboxes for the picture insertion - you can insert and resize your pictures quite easily without them. That said, if the purpose of the textboxes is to serve as placeholders, you'd do better to use bookmarks or, better yet, to use tables with cells that have been given the required fixed dimensions; any pictures you insert into such cells will automatically resize to fit the space available whilst maintaining the correct aspect ratio. That, in turn, obviates the need for any resizing code.
To set the fixed:
• row height, use Table Tools>Layout>Properties>Row>Specify Height>Exactly.
• column width, first uncheck the 'automatically resize to fit contents' option under Table Tools>Layout>Properties>Table>Options. Then set the preferred column width under Table Tools>Layout>Properties>Columns.
You might also want to set the cell margins to 0 all round. It's also a good idea to format the cell paragraph with 0 before/after spacing.
For an automated approach to this, see:
https://www.msofficeforums.com/word-...html#post47919. Obviously, though, if you're only inserting the pics one at a time, the code would need to be modified to suit.