控制Excel工作簿中圖表的顯示和隱藏的方法

1、啟動(dòng)Excel并打開(kāi)包含圖表的工作表，打開(kāi)Visual Basic編輯器，在工程資源管理器中鼠標(biāo)右擊，選擇關(guān)聯(lián)菜單中的“插入”|“模塊”命令創(chuàng)建一個(gè)模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。具體的程序代碼如下所示：

Sub隱藏()

MsgBox"隱藏當(dāng)前工作簿中的所有圖表!"

ActiveWorkbook.DisplayDrawingObjects=xlHide

End Sub

Sub顯示()

MsgBox"顯示當(dāng)前工作簿中的所有圖表!"

ActiveWorkbook.DisplayDrawingObjects=xlDisplayShapes

End Sub

圖1　輸入程序代碼

2、切換到Excel窗口，在“開(kāi)發(fā)工具”選項(xiàng)卡的“代碼”組中單擊“宏”按鈕打開(kāi)“宏”對(duì)話(huà)框，在“宏名”列表中選擇“隱藏”選項(xiàng)，單擊“執(zhí)行”按鈕，如圖2所示。

圖2　選擇執(zhí)行“隱藏”宏

此時(shí)將打開(kāi)提示對(duì)話(huà)框，提示將隱藏工作簿中的圖表，如圖3所示。單擊“確定”按鈕后工作簿中的圖表將隱藏。

圖3　Excel提示將隱藏圖表

同樣，在“宏”對(duì)話(huà)框中選擇“顯示”選項(xiàng)后單擊“執(zhí)行”按鈕，Excel彈出提示對(duì)話(huà)框提示將顯示圖表，如圖4所示。單擊“確定”按鈕圖表將顯示。

圖4　Excel提示顯示圖表

提示

工作簿中的圖表顯示有3種方式，它們是顯示所有圖形、僅顯示占位符和隱藏所有圖形，它們分別對(duì)應(yīng)常量xlDisplayShapes、xlPlaceholers和xlHide，將DisplayDrawingObjects屬性值設(shè)置為這3個(gè)常量即可實(shí)現(xiàn)對(duì)工作簿中對(duì)象顯示的控制。