VBA Excel中获取图片的底行

Question

我有一个带有图片的电子表格。我不知道图片的大小（可能会有所不同）。我想在变量中获取图片的最后一行（我想在图片底部保留空白行，并开始在下一行中填充数据）。您能帮我弄清楚语法吗？

我什至不知道如何将图片变成变量。

我可以使用以下代码执行此操作：

 Dim testPic As Object
 For Each testPic In ActiveSheet.Pictures
    h = testPic.Height
    cellHeight = Cells(ImageTopRow, ImageLeftCol).Height
    nRows = h/cellHeight
 Next

但是：我不需要foreach，收藏中只有一张照片，我只是想不出如何获得第一张照片。b。应该有一种更简单的方法，对吗？

谢谢李

Answer 1

Dim pic As Shape
Set pic = ActiveSheet.Shapes(1)

MsgBox pic.BottomRightCell.Row

将显示您单元格在右下角的位置，即