Image vba excel获取图片'；这是最下面一行

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

我甚至不知道如何将图片转换成变量

我可以通过以下代码完成此操作：

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

但是： A.我不需要foreach，收藏中只有一张照片，我只是不知道如何得到第一张。 B应该有更简单的方法，对吗

谢谢， 李

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

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

希望这会有所帮助

“ActiveSheet.Shapes.Count”-这有助于计算活动工作表中的图片数 “ActiveSheet.Shapes（1）”-如果您只有一张照片或想要第一张照片的右下角，则可以使用此选项

代码：

像形状一样暗淡的图片

Set pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

'Determines the address on the bottom right of the picture
lLast = pic.BottomRightCell.Address


'Selects the Bottom right cell of the Image/picture
Range(lLast).Select

希望这会有所帮助

“ActiveSheet.Shapes.Count”-这有助于计算活动工作表中的图片数 “ActiveSheet.Shapes（1）”-如果您只有一张照片或想要第一张照片的右下角，则可以使用此选项

代码：

像形状一样暗淡的图片

Set pic = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

'Determines the address on the bottom right of the picture
lLast = pic.BottomRightCell.Address


'Selects the Bottom right cell of the Image/picture
Range(lLast).Select

---

询问VBA代码？=>演示对正在解决的问题的最低理解。@mehow:请参阅editsok查看我的答案，这就是您希望VBA代码的任务吗？=>对正在解决的问题表现出最低限度的理解。@mehow:请看editsok看看我的答案，这就是你想要的吗。我尝试了ActiveSheet.Pictures（1），但它不起作用，可能是因为我没有使用“set”。Thx:）它们是对象，因此您需要使用

Set

关键字Thx。我尝试了ActiveSheet.Pictures（1），但它不起作用，可能是因为我没有使用“set”。Thx:）它们是对象，所以您需要使用

Set

关键字