excel里面能控制图片隐藏和显示的代码

来源：百度知道 编辑：UC知道 时间：2024/06/02 07:00:48
在特定的单元格内输入显示或者隐藏，或者是其他的字符，使用宏代码改变图片的属性，打印时不打印，或者打印！
本人对宏代码不是很懂，望楼下解释一下用法！谢谢！我是想隐藏特定的图片，一个表格里面有多个图片，想隐藏其中一个或者多个，而不是全部的！
还有就是如果B1不是显示的时候也要显示出来，除了是隐藏其他情况全部是显示的！

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