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#
End Sub

Private Sub Commanon2_Click()
If Range("F1").Value > 1 Then
Range("F1").Value = Range("F1").Value - 1
End If

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#
End Sub