Question

怎么用VB向EXCEL中的指定单元格中添加和删除图片？

我用xlSheet.Pictures.Insert (App.Path & "\bpsjt.bmp")语句向EXCEL中加入了图片，什么语句能删除这张图片？

Answer 1

如果你知道图片的Name
可以,如名称是"Picture 1"
xlSheet.Shapes("Picture 1").delete
如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3
可以循环判断后删除
For Each P In xlSheet.Shapes
If P.Name Like "Picture*" and P.TopLeftCell.Address="$B$3" Then P.Delete
Next

Answer 2

Selection.Insert Shift:=xlDown 插入行，
Selection.Insert Shift:=xlToRight 插入单元格，向右移
Selection.Insert Shift:=xlDown 插入单元格，向下移
另外告诉你个简单的方法，就是先打开录制新宏，然后进行，你要的操作，然后打开宏查看一下原始代码就知道命令了。