ActiveWorkbook.DisplayDrawingObjects = xlHide
本句是不顯示圖片
ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes
本句是顯示
你可以在你文件的有圖片的(比如sheet1)的change事件中加入以下代碼(假設(shè)你要輸入顯示或者隱藏內(nèi)容的格為B1)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target = "隱藏" Then ActiveWorkbook.DisplayDrawingObjects = xlHide
If Target.Address = "$B$1" And Target = "顯示" Then ActiveWorkbook.DisplayDrawingObjects = xlDisplayShapes
End Sub
加入代碼的方法,是打開VB編輯器,雙擊左邊的sheet1,在右邊的空白處粘貼以上代碼就可以了
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target = "隱藏" Then ActiveSheet.Shapes("Picture 1").Visible = False
If Target.Address = "$B$1" And Target = "顯示" Then ActiveSheet.Shapes("Picture 1").Visible = True
End Sub
這是對單張圖片的操作方法。至于你的圖片如果較多,那么哪張是Picture 1,就要自己試驗出來了。如果對其中幾張操作,那么就把then 后面的句子重寫幾遍,Picture 1改成2,3....也就行了
再補充一句,你把= "顯示"改成<>"隱藏"就可以了
2、批準插入圖片的方法
EXCEL單元格一點顯示圖片,不點隱藏圖片
可以??捎貌迦肱⒌姆椒▽崿F(xiàn)。
插入-批注,在批注上右鍵-設(shè)置批注格式-顏色與線條,打開填充顏色的下拉框-填充效果-圖片-選擇圖片,找到需要插入的圖片插入,一路確定下來。
調(diào)整批注框的大小以適應(yīng)圖片的顯示,然后在批注所在單元格上右鍵-隱藏批注。
以后,當鼠標移到單元格上,批注就顯示出來了。
首先,選擇“插入”—“批注”命令,給單元格添加批注。然后,右擊單元格,從快捷菜單中選擇“顯示/隱藏批注”命令,將批注顯示出來。雙擊批注的邊框,可以打開“設(shè)置批注格式”對話框,選擇“顏色和線條”選項卡,從“填充”欄的“顏色”項的下拉列表中選擇“填充效果”項,選擇“圖片”選項卡,單擊其中的“選擇圖片”按鈕,選擇要放在批注中的圖片。
3\
請問怎么用VBA編程實現(xiàn)excel中圖片的顯示和隱藏?
各位大蝦:
請問怎么用VBA編程實現(xiàn)excel中圖片的顯示和隱藏?
我想在excel中放一張圖片,然后單擊某一個按鈕的時候,讓他顯示;不需要顯示的時候,單擊某一個按鈕,讓他隱藏。
這個功能怎么實現(xiàn)啊?
Sub 隱藏()
ActiveSheet.Shapes("Picture 1").Visible = False
End Sub
Sub 顯示()
ActiveSheet.Shapes("Picture 1").Visible = True
End Sub