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

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

推荐答案推荐于2017-09-30

如果你知道图片的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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/GWq3YWNN3vIpYYGI3qq.html

其他回答

第1个回答 2017-01-11

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

相似回答

VB6插入图片到 Excel 2007 指定单元格答：1、先编制表格：2、在表格里编写触发宏代码：Private Sub Worksheet_Change(ByVal Target As Range)Dim photoname As String If Target.Row = 3 And Target.Column > 3 And Target.Column < 6 Then On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息 Application.ScreenUpdating = ...

怎么用vb向excel添加图片答：提前手工录制一个把图片导入到Exce的l宏，然后把这个宏分配给导入按钮去自动导入图片

如何用VB向EXCEL单元格中插入图片答：如果你知道图片的Name 可以,如名称是"Picture 1" xlSheet.Shapes("Picture 1").delete 如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3 可以循环判断后删除 For Each P In xlSheet.Shapes If P.Name Like "Picture*" and P.TopLeftCell.

请教如何使用VB编辑器向EXCEL指定的单元格中插入图片?答：Sub insertPic()Dim i As Integer Dim FilPath As String Dim rng As Range Dim s As String With Sheet1 For i = 3 To .Range("a65536").End(xlUp).Row FilPath = ThisWorkbook.Path & "\" & .Cells(i, 1).Text & ".jpg"If Dir(FilPath) <> "" Then .Pictures.Insert(Fil...

用ExcelVB查询照片,如何在Excel中插入图片答：点击插入图片，找到路径，选择需要的图片，查看效果。首先第一步的方法是打开excel表格，选中单元格，点击插入选项卡，选中图片后点击插入，选择图片右下角的控制点，拖动鼠标进行缩放，将图片缩放至合适的大小即可。

vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...答：1、在工程中引用Microsoft Excel类型库：从\"工程\"菜单中选择\"引用\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\"确定\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...

如何用VB向Excel单元格中插入图片并且设置图片的属性答：Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Row = LastRow Then Exit Sub End If LastRow = Target.Row s = Worksheets("index").Cells(Target.Row, 3).Text If Left(s, 2) = "wp" Then Worksheets("image").Pictures.Delete s = "original_images" & "\"...

大家正在搜

怎么添加单元格移动图表到指定单元格怎么锁定$单元格簇状柱形图嵌入指定单元格单元格怎么加斜线单元格内怎么换行单元格合并怎么设置冻结单元格怎么设置为单元格添加批注