動態(tài)查看員工或商品的照片，這個方法也不錯

建發(fā)圖書 2022-12-30 發(fā)布于廣東

展開全文

HI，大家好，我是星光。

好久不見，☆ㄟ( ??? )ㄏ☆想你了。

這期給大家聊一下如何在Excel中動態(tài)查看員工或商品照片。關(guān)于這事，之前給大家分享了多種方法。

如果是單個照片，可以使用函數(shù)處理

◆點擊圖片獲取相關(guān)教程▼

▲動態(tài)顯示員工照片的檔案查詢模版

如果是多個照片，可以將圖片放到批注里。這樣當鼠標滑過單元格，就可以看到他或她的照片了。

▲點擊圖片獲取相關(guān)教程

又或者干脆將圖片保存到單元格中：

……

不過，當需要查看圖片的對象比較多時，后面兩種方法，由于將大量圖片保存到了工作簿中，會造成Excel體積偏大，運算效率低下等問題。

所以，今再給大家分享另外一個方式。

這種方式并不會將所有圖片都儲存到工作簿中，但當鼠標選取任意目標時，也可以看到相關(guān)圖片。

步驟1◆

將圖片保存到當前工作簿所在的文件夾內(nèi)。

步驟2◆

選中目標工作表，在插入選項卡下，依次單擊形狀→文本框，在當前工作表繪制一個大小合你心意的框。在名稱欄中將它的名稱修改為圖片。

步驟3◆

復制以下代碼粘貼到目標工作表所在的VBE代碼窗口：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.Shapes('圖片').Visible = msoFalse '隱藏圖形 If Target.Rows.Count > 1 Then Exit Sub If Target.Columns.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub Dim p$, f$ p = ThisWorkbook.Path & '/' f = Dir(p & Target.Value & '.*') '根據(jù)所選單元格查找對應(yīng)圖片 If f <> '' Then '如果存在同名稱的圖片 With Me.Shapes('圖片') With .Fill .Visible = msoTrue .UserPicture p & f .TextureTile = msoFalse .RotateWithObject = msoTrue End With .TextFrame2.TextRange.Characters.Text = '' '清除文本 End With Else With Me.Shapes('圖片') .Fill.Visible = msoFalse '取消圖片填充 .TextFrame2.TextRange.Characters.Text = '查無圖片' End With End If With Me.Shapes('圖片') '設(shè)置可見和位置 .Visible = msoTrue .Left = Target.Offset(0, 1).Left .Top = Target.Top End WithEnd Sub

這個時候鼠標點擊任意單元格，如果當前工作簿所在的文件夾內(nèi)存在該單元格內(nèi)容的圖片，就會自動顯示在單元格的右側(cè)了。

打個響指，今天給大家分享的內(nèi)容就這些，下載案例文件試一下吧。

案例文件下載百度網(wǎng)盤...

https://pan.baidu.com/s/1V_yVCQyf-bi31XR38BD-PQ?pwd=1234