Excel工作表中的圖表、圖形或占位符可以使用VBA代碼來(lái)對(duì)其顯示和隱藏進(jìn)行控制，在編寫(xiě)代碼時(shí)，可以通過(guò)設(shè)置工作簿對(duì)象的DisplayDrawingObjects屬性來(lái)實(shí)現(xiàn)這種控制。以下是小編為您帶來(lái)的關(guān)于控制Excel工作簿中圖表的顯示和隱藏的方法，希望對(duì)您有所幫助。
控制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ì)話框，在“宏名”列表中選擇“隱藏”選項(xiàng)，單擊“執(zhí)行”按鈕，如圖2所示。
圖2 選擇執(zhí)行“隱藏”宏
此時(shí)將打開(kāi)提示對(duì)話框，提示將隱藏工作簿中的圖表，如圖3所示。單擊“確定”按鈕后工作簿中的圖表將隱藏。
圖3 Excel提示將隱藏圖表
同樣，在“宏”對(duì)話框中選擇“顯示”選項(xiàng)后單擊“執(zhí)行”按鈕，Excel彈出提示對(duì)話框提示將顯示圖表，如圖4所示。單擊“確定”按鈕圖表將顯示。
圖4 Excel提示顯示圖表
提示
工作簿中的圖表顯示有3種方式，它們是顯示所有圖形、僅顯示占位符和隱藏所有圖形，它們分別對(duì)應(yīng)常量xlDisplayShapes、xlPlaceholers和xlHide，將DisplayDrawingObjects屬性值設(shè)置為這3個(gè)常量即可實(shí)現(xiàn)對(duì)工作簿中對(duì)象顯示的控制。
