指定单元格符合条件后，才插入指定名称的图片 - 再次求助！

chenxmug

如果 单元格 g3 必需 等于 "小咪咪" 这个条件后，单元格 J3 才 插入图片（如果单元格 g3 不等于 "小咪咪"，单元格 J3 就不插入图片），如果依照昨天高手给的VBA代码，如下代码需要怎么修改 ？   因为刚刚才开始学习,请高手和大神们多帮忙！

昨天有高手已经给了一个很好用的VBA代码如下：

• Sub 自动插入图片调整大小()
• Dim FolderSelect, shp As Shape
• Set FolderSelect = Application.FileDialog(msoFileDialogFilePicker)
• With FolderSelect
•     Range("J3").Select
•     ActiveSheet.Pictures.Insert ThisWorkbook.Path & "\cat.jpg"
•        Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
•         shp.LockAspectRatio = msoFalse
•         shp.Left = Selection(1).Left
•         shp.Top = Selection(1).Top
•         shp.Width = Selection(1).Width
•         shp.Height = Selection(1).Height
• End With
• End Sub
  

爱疯

Sub test()
    If [g3] = "小咪咪" Then Call 自动插入图片调整大小
End Sub

和你的程序放在一个模块里，运行这个。

chenxmug

您好， 这个方法已经有一位高手教过我了,我想知道是否能直接将 IF条件 插入这位高手的代码内。  不要使用调用 或 呼叫 宏 的方式

chenxmug

先请教您一个新问题（ 删除图片出现问题 ）如下：   

插入图片后，要删除图片时，为何不能使用图片原来名称  小咪咪.jpg   而必须使用 EXCEL窗口左上方的图片名称  图片 13.png  才能删除。 为什么呢？


我使用 2007 EXCEL， 插入图片时的图片名称是：小咪咪.jpg   


如果使用删除图片1代码 - - - 无法删除图片。      

Sub 删除图片1()
Dim SP As Shape
For Each SP In ActiveSheet.Shapes   
If SP.Name = "小咪咪.jpg" Then   
SP.Delete
End If
Next
End Sub



如果使用删除图片2代码 - - - 可以删除图片。

Sub 删除图片2()
Dim SP As Shape
For Each SP In ActiveSheet.Shapes   
If SP.Name = "图片 13.png" Then   
SP.Delete
End If
Next
End Sub



1。 删除图片时,如果使用 图片名称 小咪咪.jpg   无法删除

2。 删除图片时,如果使用 EXCEL窗口左上方的图片名称  图片 13.png  可以删除。

这是什么原因，如何解决问题。   

请帮忙解决问题！ 可能的话请教我问题出在那里 ？   谢谢！