Something like ActiveDocument.InlineShapes(i).Height = 0 will work
ActiveDocument.InlineShapes(i).Height = 0