我使用的代码是插入位于B列的相应项目编号的图片（A列）。Current positioning of the picture
但是，插入的图片位于每个单元格的左上角，我想将它们<>放在单元格下方一点]（单元格大小是54，图片是50）。这是我使用的代码：
Sub InsertImageFullName（）
关于错误恢复下一页
Application.ScreenUpdating = False
Dim path $，cl作为范围，myPicture作为对象
Set Rng = Range（“ A2：A300”）
cell_h = Range（“ A2”）。Top-Range（“ A1”）。Top
对于每个cl Rng路径= cl.Offset（0，8）。值如果路径像“
？
”那么设置myPicture = ActiveSheet.Pictures.Insert（路径）与myPicture.ShapeRange.LockAspectRatio = msoTrue高度= 50.Top =行数（cl.Row）.Top左=列（cl.Column）。左结束于万一设置myPicture = Nothing下一个结束子要进行这项工作需要修改什么？
非常感谢您的帮助
[我使用的代码是插入位于B列的相应项目编号的图片（A列）。图片的当前位置，但是，插入的图片位于...