控制Excel工作簿中图表的显示和隐藏的方法

1、启动Excel并打开包含图表的工作表，打开Visual Basic编辑器，在工程资源管理器中鼠标右击，选择关联菜单中的“插入”|“模块”命令创建一个模块，在模块的“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：

Sub隐藏()

MsgBox"隐藏当前工作簿中的所有图表!"

ActiveWorkbook.DisplayDrawingObjects=xlHide

End Sub

Sub显示()

MsgBox"显示当前工作簿中的所有图表!"

ActiveWorkbook.DisplayDrawingObjects=xlDisplayShapes

End Sub

图1　输入程序代码

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

图2　选择执行“隐藏”宏

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

图3　Excel提示将隐藏图表

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

图4　Excel提示显示图表

提示

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