在Excel中如何製作圖片的動態聯動?

來自：E維課堂（ID：EWoffice）

作者：表姐：凌禎

最近在忙活公司的《質量不良管理系統》，其中涉及到大量的圖片處理技巧。在此整理相關的教程，分享給到大家。

生產型企業的小夥伴知道，質量現場的圖片又多又雜，而且每張圖片都要高清無碼，因為這很有可能成為後期質量糾紛的判定依據。

在Excel當中是可以插入圖片的，但是過多的原圖存儲在Excel表當中，會造成表格超大，換句話說，就是超慢。

用Excel能不能實現這樣的效果？

①根據單據編號，調出圖庫中對應的圖片，按順序排列

②這些圖片要規規矩矩的放在單元格當中，不用手動排版

③這些圖片在列印狀態下只是個縮略圖，畢竟大圖會增加表格負擔

④點擊縮略圖的時候，可以打開原圖超連結

⑤以上我要自動，而且要有個總體情況的看板

嗯嗯，以上表姐都實現了呢~~~效果如下：

教程開始：

大家都知道，Excel是儲存數據的能手。那麼除了數據以外，Excel也能夠實現圖片的存儲。究竟如何把圖片和單元格的內容關聯起來，實現圖片與單元格動態聯動的效果呢？

①利用名稱管理器的方法，動態查找圖片

②利用VBA的方法，動態引用圖片

在此之前，先來一彈圖片的插入技巧

Excel雖然不像PPT那樣擅長於圖片化的呈現，也不像Word那樣精於圖文排版，但是對於圖片的基本處理還是很有Excel特色的。

1.插入圖片

通過【圖片工具】選項卡下的【格式】--在大小中，可以快速設置圖片的大小。按住鍵盤Alt鍵，能夠快速對齊到單元格邊界。

2.設置工作表背景

點擊【頁面布局】選項卡--【背景】--選擇一張圖片，即可作為Excel工作表的背景畫布。如果不需要，可在此刪除背景。

在【頁面布局】選項卡--【工作表選項】下，去掉【網絡格線】和【標題】中，查看的√，可隱藏Excel工作表的網絡格線和行列標題，使得工作表看上去更加不像個Excel。

PS：在製作小系統歡迎界面時，通常會用到這樣的小技巧。

3.利用批註插入圖片

選中單元格後，單擊滑鼠右鍵，點【插入批註】；

用滑鼠點擊批註邊框，即可進入批註設計狀態，此時，單擊滑鼠右鍵，點【設置批註格式】；

在彈出的【設置批註格式】對話框中，選擇【顏色與線條】頁籤；

在【填充】--【顏色】下，選擇【填充效果】；

點擊【圖片】頁籤，選擇您的圖片後，依次確定。

最終實現，將圖片填充到批註中的效果，並且只有在滑鼠選中單元格時，才隨批註一同出現。

好的，以上只是入門篇的應用技巧，下面我們來看看兩個實景案例的高級應用。

啥叫動態引用？舉個例子：

這樣的應用是不是很像我們製作員工檔案時，根據員工姓名，動態呈現員工照片的效果？

這是通過【名稱管理器】的方法來實現的：

1.準備圖庫

將您的照片（證件照、產品圖紙等），依次存放在一張工作表當中：

A列寫上產品的編號，作為後期索引的依據

C列存儲您的圖片，注意設置單元格行高與列寬

2.設置名稱管理器

在【公式】選項卡下--點擊【名稱管理器】，新建一個名為【pic】的名稱。

公式如下：

=INDEX(產品圖庫!$C$2:$C$10,MATCH(產品任務單!$B$3,產品圖庫!$A$2:$A$10,0))

公式解析：

①INDEX函數

返回在產品圖庫工作表中，C2：C10區域中的第N個值。

②MATCH函數

根據產品任務單B3的值，匹配出在產品圖庫工作表中A列A2：A10的位置，也就是N值。

如上圖所示：B3單元格的值是【CP001】，在產品圖庫工作表A列A2：A10的位置是排在第1位，也就是說N=1。

然後名稱管理器pic，返回的值是C列C2：C10中排列第N=1位的圖片是路飛這個圖片所存放的區域C2。

3.插入圖片

點擊【插入】選項卡下--【圖片】，任意插入一張圖片

此時圖片還只是您插入的默認圖片樣式

選中圖片後，在編輯欄輸入【=pic】，即將圖片的引用源，修改為名稱管理器中pic所引用的數據源，即目標圖片。

為什麼要引用外部圖庫？通常來說，我們面對的圖片庫，可能是這樣的：

文章開始的時候，說到：如果把大量的原始圖片存儲到Excel當中，表格會變慢。顯然這也不是最優的解決方案。

那麼就需要根據單元格的內容，動態顯示圖片了。

表姐用到的方法是：Excel VBA。

代碼如下：

原始碼

Option Explicit

Sub ling()

'插入圖片並連結到原圖並根據插入的單元格自動變更大小居中

On Error Resume Next     '忽略錯誤繼續執行VBA代碼,避免出現錯誤消息

'***************************刪除圖片

    Dim tp As Shape

    For Each tp In ActiveSheet.Shapes

        If tp.Type = 11 Then tp.Delete

    Next

'*****************************

Application.ScreenUpdating = False

Dim i As Integer

For i = 1 To 7

    Sheet2.Cells(11, i).Select

Dim W, H As String

    W = ActiveCell.Width

    H = ActiveCell.Height

Dim lj As String

    lj = ThisWorkbook.Path & "\圖片"

Dim idno As String

    idno = Sheet2.Range("G5").Value

Dim Filename As Variant

    Filename = lj & "\" & idno & "-" & i & ".jpg"

    ActiveSheet.Pictures.Insert(Filename).Select

    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=Filename

Dim W1, H1 As String

    W1 = Selection.ShapeRange.Width

    H1 = Selection.ShapeRange.Height

        Selection.ShapeRange.LockAspectRatio = msoTrue

        Select Case W / H

        Case Is >= W1 / H1

             Selection.ShapeRange.Height = H

             Selection.ShapeRange.IncrementLeft (W - H * W1 / H1) / 2

        Case Is < W1 / H1

             Selection.ShapeRange.Width = W

             Selection.ShapeRange.IncrementTop (H - W * H1 / W1) / 2

        End Select 

    With Selection                                                                              '定義圖片大小位置隨單元格變化而變化

            .Placement = xlMoveAndSize

    End With

Next i

Application.ScreenUpdating = True

End Sub

通過上述代碼，可以將圖片以縮略圖的形式插入到單元格當中，並自動調整圖片大小，對齊到邊界位置。

還可以通過點擊縮略圖的方式，打開原圖連結：

最後，在數據源整理的基礎上，我還製作了一個簡單的看板：

  教 程 推 薦   

730分鐘教程，120個視頻，只需108元！

附贈年度會員學習資源↓↓↓

★視頻教程配套操作素材

★會員群專業老師答疑輔導

★每周資源包更新發放

★每周經典實用案例分享

★教程/微課專屬會員價

★月度最佳會員送書福利

購買須知：直接點擊文末閱讀原文購買教程後，添加微信號officeskill（技巧妹）或掃描下方二維碼加入會員。

點擊「閱讀原文」直接購買教程

「好東西，應該被更多人看到，

贈人玫瑰，手有餘香」↘