用VBA实现图片的显示与隐藏
主要内容：本期作品以最近发布的“维修管理系统”为例进行讲解图表、图片、图形的显示与隐藏。
该功能可用于信息的选择显示，在同一位置通过按钮来显示对应的信息。也可通过该方式控制按钮的显示隐藏而达到权限限制等效果。
- 实现效果：当点击按钮时，指定的图片隐藏，并显示指定的图表信息。如下图所示，当点击“可视化图表”按钮后。对应的图表信息显示出来，主界面的图片自动隐藏。当点击“返回”按钮时，所有图标信息隐藏，而主界面图片显示。
- 实现方式：这里主要通过在VBA 中Visible属性来实现。首先我们看看图片显示的代码：
显示代码：ActiveSheet.Shapes.Range(Array("矩形 7")).Visible = msoTrue
隐藏代码：ActiveSheet.Shapes.Range(Array("矩形 7")).Visible = msoFalse
其中“矩形 7”为主界面图片名，如下图所示，选中图片查看左上角。
2.1 图表的显示和隐藏与图片一致：如下图所示，首先选择图表并查看图表名。在对应的按钮下（这里的按钮为“可视化图表”）输入图表显示的代码
显示代码：
ActiveSheet.Shapes.Range(Array("图表 14")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("图表15")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("图表 17")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("矩形 7")).Visible = msoFalse
（以上代码大概意思是显示图表 14 、图表 15、图表 17。以及隐藏矩形 7）
2.2 同理将上面对应代码的msoFalse改为msoTrue，将msoTrue改为msoFalse后写入“返回”按钮下，即可实现通过两个按钮实现我们要显示的信息了。
结语：本期作品就分享到这里，由于时间关系有些地方未能细讲还请谅解。如制作过程中存在疑问可在评论区留言或私信小编。
