插入图片，报错，怎么解决？

清楚些的

录制个宏，手工插入一张图片，得到的代码是：
Range("A16").Select '选择a16单元格
ActiveSheet.Pictures.Insert("C:\Users\Fanyoulin\Pictures\3.png").Select ‘以a16单元格为左上角插入图片
然后对上述代码稍加改造：
Range("A16").Select
ActiveSheet.Pictures.Insert("C:\Users\Fanyoulin\Pictures\3.png").Select
With Selection
.ShapeRange.LockAspectRatio = msoFalse '取消纵横比锁定
.Top = Range("b10").Top '顶部以b10单元格对齐
.Left = Range("b10").Left '左边以b10单元格的左边对齐
.Width = Range("d10").Left - Range("b10").Left '宽度占用b\c两列的宽度
.Height = Range("a10").Top - Range("a1").Top ’高度为a1-a9行的高度
End With
图片大小也可以用纯数字来指定，用单元格位置信息的好处是可以保持与单元格对齐；
.shape.addpiucture也能插入图片，好像只能使用jpg（猜测），录制宏得到的是.Pictures.Insert，所以我建议代码也与时俱进；