嘻皮客娱乐学习网

标题: 控制Excel工作簿中图表的显示和隐藏的方法 [打印本页]

作者: lazybone 时间: 2017-1-16 17:27
标题: 控制Excel工作簿中图表的显示和隐藏的方法

Excel工作表中的图表、图形或占位符可以使用VBA代码来对其显示和隐藏进行控制，在编写代码时，可以通过设置工作簿对象的DisplayDrawingObjects属性来实现这种控制。本文以控制Excel工作簿中图表的显示和隐藏的方法。
1、启动Excel并打开包含图表的工作表，打开Visual Basic编辑器，在工程资源管理器中鼠标右击，选择关联菜单中的“插入”|“模块”命令创建一个模块，在模块的“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：
Sub隐藏()
MsgBox"隐藏当前工作簿中的所有图表!"
ActiveWorkbook.DisplayDrawingObjects=xlHide
End Sub
Sub显示()
MsgBox"显示当前工作簿中的所有图表!"
ActiveWorkbook.DisplayDrawingObjects=xlDisplayShapes
End Sub

(, 下载次数: 114)

图1　输入程序代码

2、切换到Excel窗口，在“开发工具”选项卡的“代码”组中单击“宏”按钮打开“宏”对话框，在“宏名”列表中选择“隐藏”选项，单击“执行”按钮，如图2所示。

(, 下载次数: 111)

图2　选择执行“隐藏”宏

此时将打开提示对话框，提示将隐藏工作簿中的图表，如图3所示。单击“确定”按钮后工作簿中的图表将隐藏。

(, 下载次数: 118)

图3　Excel提示将隐藏图表

同样，在“宏”对话框中选择“显示”选项后单击“执行”按钮，Excel弹出提示对话框提示将显示图表，如图4所示。单击“确定”按钮图表将显示。

(, 下载次数: 113)

图4　Excel提示显示图表

提示
工作簿中的图表显示有3种方式，它们是显示所有图形、仅显示占位符和隐藏所有图形，它们分别对应常量xlDisplayShapes、xlPlaceholers和xlHide，将DisplayDrawingObjects属性值设置为这3个常量即可实现对工作簿中对象显示的控制。

欢迎光临嘻皮客娱乐学习网 (http://www.xipick.com/)