vba mysql存储图片_VBA实现数据库图片插入单元格

sheet1为下图工作表，sheet2为数据工作表，内含图片地址。现在要将图片通过VBA保存到sheet1的B1单元格，并将图片设置大小。这里图片的长宽比例是一定的，所以这里用了锁定长宽比。当点+1按钮时，F1单元格数字加1，将sheet2中的第10条记录查询出来，并将图片显示到B1单元格中。

现在的问题是显示的图片后，再增加一条记录后，图上将覆盖其上，随着记录的增加，需要手动删除先前的图片，比较麻烦。

Private Sub Commanon1_Click()

Range("F1").Value = Range("F1").Value + 1

imgurl = Sheet2.Range("B" & (1 + Range("F1").Value)).Value

Range("B2").Select

ActiveSheet.Pictures.Insert(imgurl).Select

Selection.ShapeRange.LockAspectRatio = msoTrue

Selection.ShapeRange.Height = 97.75

Selection.ShapeRange.Width = 82

Selection.ShapeRange.Rotation = 0#