如何取得EXCEL表中图片所在的单元格行号？以图片顶部所点单元格为准

For Each sh In sSheet.Shapes
sh.Left =sh.TopLeftCell.Left
sh.Top =sh.TopLeftCell.Top
sh.Width =sh.TopLeftCell.Width
sh.Height =sh.TopLeftCell.Height
endfor

For Each sh In sSheet.Shapes
sh.Left =sh.TopLeftCell.Left
sh.Top =sh.TopLeftCell.Top
sh.Width =sh.TopLeftCell.Width
sh.Height =sh.TopLeftCell.Height
sh.address=sh.TopLeftCell.Address
endfor

谢谢！