ActiveWorkbook.DisplayDrawingObjects = xlHide
本句是不显示图片
ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes
本句是显示
你可以在你文件的有图片的（比如sheet1）的change事件中加入以下代码（假设你要输入显示或者隐藏内容的格为B1）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target = "隐藏" Then ActiveWorkbook.DisplayDrawingObjects = xlHide
If Target.Address = "$B$1" And Target = "显示" Then ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes
End Sub
加入代码的方法，是打开VB编辑器，双击左边的sheet1,在右边的空白处粘贴以上代码就可以了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target = "隐藏" Then ActiveSheet.Shapes("Picture 1").Visible = False
If Target.Address = "$B$1" And Target = "显示" Then ActiveSheet.Shapes("Picture 1").Visible = True
End Sub
这是对单张图片的操作方法。至于你的图片如果较多，那么哪张是Picture 1，就要自己试验出来了。如果对其中几张操作，那么就把then 后面的句子重写几遍，Picture 1改成2，3....也就行了
再补充一句，你把= "显示"改成<>"隐藏"就可以了
2、批准插入图片的方法
EXCEL单元格一点显示图片，不点隐藏图片
可以。可用插入批注的方法实现。
插入－批注，在批注上右键－设置批注格式－颜色与线条，打开填充颜色的下拉框－填充效果－图片－选择图片，找到需要插入的图片插入，一路确定下来。
调整批注框的大小以适应图片的显示，然后在批注所在单元格上右键－隐藏批注。
以后，当鼠标移到单元格上，批注就显示出来了。
首先，选择“插入”—“批注”命令，给单元格添加批注。然后，右击单元格，从快捷菜单中选择“显示/隐藏批注”命令，将批注显示出来。双击批注的边框，可以打开“设置批注格式”对话框，选择“颜色和线条”选项卡，从“填充”栏的“颜色”项的下拉列表中选择“填充效果”项，选择“图片”选项卡，单击其中的“选择图片”按钮，选择要放在批注中的图片。
3\
请问怎么用VBA编程实现excel中图片的显示和隐藏？
各位大虾：
请问怎么用VBA编程实现excel中图片的显示和隐藏？
我想在excel中放一张图片，然后单击某一个按钮的时候，让他显示；不需要显示的时候，单击某一个按钮，让他隐藏。
这个功能怎么实现啊？
Sub 隐藏()
ActiveSheet.Shapes("Picture 1").Visible = False
End Sub
Sub 显示()
ActiveSheet.Shapes("Picture 1").Visible = True
End Sub
