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

                               

                        Excel工作表中的图表、图形或占位符可以使用VBA代码来对其显示和隐藏进行控制，在编写代码时，可以通过设置工作簿对象的DisplayDrawingObjects属性来实现这种控制。本文以控制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个常量即可实现对工作簿中对象显示的控制。