VBA将行高限制为粘贴图像大小

I'm trying to create a macro that takes a image links in column A of a worksheet, pastes the associated images, and then changes the row height for each row to match the height of the picture in that row.I'm trying to create a macro that takes a image