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

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

Sub隱藏()

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

ActiveWorkbook.DisplayDrawingObjects=xlHide

End Sub

Sub顯示()

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

ActiveWorkbook.DisplayDrawingObjects=xlDisplayShapes

End Sub

圖1　輸入程序代碼

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

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

此時將打開提示對話框，提示將隱藏工作簿中的圖表，如圖3所示。單擊“確定”按鈕后工作簿中的圖表將隱藏。

圖3　Excel提示將隱藏圖表

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

圖4　Excel提示顯示圖表

提示

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