在Excel中如何制作图片的动态联动？

来自：E维课堂（ID：EWoffice）

作者：表姐：凌祯

最近在忙活公司的《质量不良管理系统》，其中涉及到大量的图片处理技巧。在此整理相关的教程，分享给到大家。

生产型企业的小伙伴知道，质量现场的图片又多又杂，而且每张图片都要高清无码，因为这很有可能成为后期质量纠纷的判定依据。

在Excel当中是可以插入图片的，但是过多的原图存储在Excel表当中，会造成表格超大，换句话说，就是超慢。

用Excel能不能实现这样的效果？

①根据单据编号，调出图库中对应的图片，按顺序排列

②这些图片要规规矩矩的放在单元格当中，不用手动排版

③这些图片在打印状态下只是个缩略图，毕竟大图会增加表格负担

④点击缩略图的时候，可以打开原图超链接

⑤以上我要自动，而且要有个总体情况的看板

嗯嗯，以上表姐都实现了呢~~~效果如下：

教程开始：

大家都知道，Excel是储存数据的能手。那么除了数据以外，Excel也能够实现图片的存储。究竟如何把图片和单元格的内容关联起来，实现图片与单元格动态联动的效果呢？

①利用名称管理器的方法，动态查找图片

②利用VBA的方法，动态引用图片

在此之前，先来一弹图片的插入技巧

【入门篇】在Excel中插入图片

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="">

             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元！