The solution I found is from the old thread on this forum.
https://www.msofficeforums.com/word-...0-vba-tip.html
One has to insert an InLineShape then convert it to shape. Then it works consistently.
Otherwise I got some weird results (e.g., shapes were positioned differently when debuging with F8 and when the code was run with F5)