分享 Excel 批量图片导入功能，使单元格高度和宽度适应图片。

Excel 批量图片导入功能，很多插件有这个功能，大部分插件的导入功能都是使图片适应单元格的大小，

但是这点可能跟很多人的实际需求不一样，因此我单独写了一个图片导入功能，使单元格适应图片的大小。

代码缺点，需要手工替换代码中的 .png 图片格式为你 自己需要导入的 图片文件格式.

附上代码：

Sub 导入图片()

Dim wenjian_geshu

Dim lujin

Dim tupian_name

Dim zonghe_bi

Dim hanggao

Dim tishi_kuozhangming

tishi_kuozhangming = MsgBox(vbCrLf & "请确认是否需要 修改 程序代码的 文件扩展名 ？ " & vbCrLf & vbCrLf _

& "点击 “确定” 退出程序，并修改程序扩展名；" & vbCrLf & vbCrLf _

& "点击 “取消” 继续导入图片。" & vbCrLf & vbCrLf _

, vbOKCancel)

If tishi_kuozhangming = vbOK Then Exit Sub

wenjian_geshu = 0

lujin = InputBox("请输入图片文件夹路径，可以贴入路径")

If lujin = "" Then Exit Sub

tupian_name = Dir(lujin & "*.png", vbNormal)

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

'.png 可以替换为 .* 任意文件格式，但是为了避免 ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _ 程序出错，暂时不替换

'但是可以新建不同的工作簿，再导入不同格式的图片后，将表格合并为一张表格。

'不可以在同一工作簿的不同表格中重复执行 代码，即使将 新建分页表 的 名称改为 Sheet1 也不可以，因为本人水平有限不会修改测试了。希望能有大神优化下代码。

Do

If tupian_name = "" Then '输出图片名称 到 第 1 列

Exit Do

End If

wenjian_geshu = wenjian_geshu + 1

ActiveSheet.Cells(wenjian_geshu, 1).Select '方便查看执行到哪一行了

ActiveSheet.Cells(wenjian_geshu, 1) = tupian_name '输出图片名称

Rows(wenjian_geshu).RowHeight = 409 '设置行高为 Excel 的最大值 409

Columns(5).ColumnWidth = 255 '设置列宽为 Excel 的最大值 255

Dim tupian

Set tupian = ActiveSheet.Pictures.Insert(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text)

With tupian

.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

.Top = ActiveSheet.Cells(wenjian_geshu, 5).Top + 4

.Left = ActiveSheet.Cells(wenjian_geshu, 5).Left + 4 '两行代码设置图片左上角位置，对其单元格，距离单元格边距为 4

zonghe_bi = .Width / .Height '取得图片的 长宽比，以便后续图片的实际高度超过行高的时候，重新设置图片宽度，以保持图片缩小后的长宽比例

Cells(wenjian_geshu, 2) = Int(.Height) + 1

hanggao = Cells(wenjian_geshu, 2) + 3

If hanggao > 409 Then '不超过 409 则就使用上一行代码图片的默认长度

.Height = 403 '超过 EXCEL 最大行高 409，则设置图片 高度为 403，并根据图片纵横比 重新设置图片的长度

.Width = zonghe_bi * .Height ' 根据图片综合比 重新设置图片的长度

Else '不超过 409 则就使用上一行代码图片的默认长度

Rows(wenjian_geshu).RowHeight = hanggao + 6

End If

Cells(wenjian_geshu, 6) = .Width '图片后面的第一列即表格的第六列存储

If wenjian_geshu > 1 Then

If Cells(wenjian_geshu, 6) < Cells(wenjian_geshu - 1, 6) Then Cells(wenjian_geshu, 6) = Cells(wenjian_geshu - 1, 6)

End If

'取得列宽最大值，以便循环结束后设置最大列宽

Cells(wenjian_geshu, 1) = Left(Cells(wenjian_geshu, 1), Len(Cells(wenjian_geshu, 1)) - 4) '重新输出图片名称，去掉扩展名。

Cells(wenjian_geshu, 7) = .Height '在执行 Delete 语句 删除 链接图片之前取得修改后的图片 宽 和 高的数据

Cells(wenjian_geshu, 8) = .Width

.Delete 'Pictures.Insert只能插入图片链接，不能将图片与表格一起保存，

'故 删除图片链接，改用 Shapes.AddPicture 导入图片，使图片与表格同时保存，以上全部代码用来设置行高和列宽，及 设置 取得 图片的 宽 和 高 ，使其适应单元格的 高 和 宽

'.png 格式可以更改为其他格式，用于显示其他格式的图片，

ActiveSheet.Shapes.AddPicture(lujin & "" & ActiveSheet.Cells(wenjian_geshu, 1).Text & ".png", _

False, _

True, _

ActiveSheet.Cells(wenjian_geshu, 5).Left + 4, _

ActiveSheet.Cells(wenjian_geshu, 5).Top + 4, _

Cells(wenjian_geshu, 8), _

Cells(wenjian_geshu, 7)).Select '在第五列导入图片

Selection.ShapeRange.LockAspectRatio = msoTrue '锁定纵横比

Selection.Placement = xlMoveAndSize '图片大小和位置随单元格的大小和位置而改变。

End With

tupian_name = Dir '再次调用 dir 执行下面的图片的循环操作，不可以有参数，

'此句为整个代码断 最重要的语句，虽然我看不懂，但是直接用吧，有用就好了，知其然而不知其所以然好了。

Loop

Columns("E:E").Select

Selection.ColumnWidth = Int(Cells(wenjian_geshu, 6) / 5.9) '设置列宽为最大图片的列宽，5.9 为图片宽度 与 Excel 表格的宽度比

Columns("A:A").Select

Columns("A:A").EntireColumn.AutoFit

Columns(6).Select

Selection.Delete Shift:=xlToLeft '设置完第 5 列的列宽后，删除存储最大列宽值的 第 6 列

Columns("F:XFD").Select

Selection.ColumnWidth = 8.11

Columns("B:D").Select

Selection.Delete Shift:=xlToLeft

Columns("C:D").Select

Selection.Delete Shift:=xlToLeft

Range("A1").Select

'可以通过删除和插入列 的代码，调整图片名称列 和 图片实际位置列 最终所在的位置列

ActiveSheet.UsedRange.Select '添加边框

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

MsgBox ("图片导入完成！")

Range("A1").Select

End Sub

程序执行完成以后，A列放置的数据为自己命名的图片名称，B列放置的为图片。

Excel 批量图片导入功能，使单元格高度和宽度适应图片

应用场景：

前两天分享的教程中，介绍了HR创建带照片的员工档案信息表的方法，有小伙伴在问，有没有办法创建一个查询表，随时动态查询员工的基本信息和照片呢？艳子今天就分享一个Excel动态查询员工基本信息和照片的方法。

效果一：通过下拉列表查询（适用于人数或类别少的情况）

效果二：输入姓名或类别查询（适用于人数和类别较多的情况）

具体操作步骤：

1．建立带图片的员工基本情况表。可用往期教程分享的方法创建（《EXCEL插入3000名员工一一对应的照片，原来只要2钟？》可关注百家号“EXCEL学习微课堂”查看）

2、设计美化查询表。

3．在D3单元格建立下拉列表（效果二不用做此步）。

选D3单元格→数据→数据验证→序列→=员工基本情况表!$A$2:$A$8

4. 在F3单元格输入公式：=VLOOKUP($D$3,员工基本情况表!$A:$G,MATCH(E3,员工基本情况表!$A$1:$G$1,0),0)，因为E3用的相对引用，其他的是绝对引用，所以可以直接复制公式到D4D5F4F5单元格）

公式说明：

①MATCH (目标值，查找区域，精确匹配0)，通过MATCH函数来查找E3单元格“员工编号”在员工基本情况表!$A$1:$G$1的位置，即第几列。

②VLOOKUP（找谁，在哪找，返回第几列，0精确匹配），通过$D$3单元格的姓名查询相应的信息。

5. 定义名称“图片”。公式→定义名称→图片→引用位置中录入公式=INDIRECT("员工基本情况表!H"&MATCH(查询表!$D$3,员工基本情况表!$A:$A,0))

公式说明：

①"员工基本情况表!H"&MATCH(查询表!$D$3,员工基本情况表!$A:$A,0)：即用"员工基本情况表!H"连接MATCH函数查询D3单元格姓名所在的行号，结果为员工基本情况表的某个单元格，比如D3为美女1时，公式返回的是员工基本情况表的H3单元格。

②INDIRECT函数是创建对命名区域的引用，如果查询出来的是H3，即为引用H3单元格。

③引用图片时需用定义名称的方法。

④比如D3为美女1时，通俗地讲就是G3单元格=员工基本情况表的H3单元格。

6. 粘贴一张图片到G3单元格，调整图片大小与单元格大小相同，选中图片，在编辑栏输入=图片，回车就大功能告成了，点选姓名检查下。

扩展应用：查询仓库物资、查询设备情况、查询产品信息等。

如果我的分享对您有帮助，欢迎点赞、收藏、评论、转发，您的支持是我坚持的动力，更多的EXCEL技能，可以关注百家号“EXCEL学习微课堂”。

与本教程相关的往期教程有：

1、《Excel插入3000名员工一一对应的照片到单元格，原来只要2分钟？》http://.baidu/builder/preview/s?id=1608241034449118412

2、《比Vlookup好用10倍的自定义函数VLOOKUPS，轻松解决VLOOKUP难题》http://.baidu/builder/preview/s?id=1605702288894014773

在 Excel 中，有一项能把表格拍成图片且拍成图片后还能保持与原表格数据同步的功能，它就是Excel照相机。在默认情况下，由于Excel没有把它添加到功能区，因此很多用户都不知道该项功能。如果要使用照相机，需要先把它添加到功能区。另外，除用照相机能把表格拍成为图片外，不用照相机也可以，只是所拍成的图片有所区别。以下就是Excel照相机的添加和使用方法及不用照相机把表格生成图片的具体操作方法，操作中所用版本均为 Excel 2016。

一、Excel照相机怎么添加

1、Excel功能区没有照相机，如果要使用照相机需把它添加到功能区。右键 Exel 功能区任意空白处，在弹出的菜单中选择“自定义功能区”，打开“Excel 选项”窗口并自动选择“自定义功能区”，单击“选择命令”下拉列表框，选择“不在功能区中的命令”；右键“主选项卡”下的“开始”，在弹出的菜单中选择“添加新组”，则在“开始”展开的选项后添加“新建组（自定义）”，右键“新建组”，在弹出的菜单中选择“重命名”，在打开的窗口中输入“照相机”，按回车，则把新建组命名为“照相机”，单击“确定”，在“开始”选项卡的功能区右边已经有了照相机；操作过程步骤，如图1所示：

2、除可把照相机添加到“开始”选项卡外，也可以添加到其它选项卡，并且还可以把照相机添加到一个独立的选项卡，添加时只需新建一个选项卡。

二、Excel照相机怎么用

（一）给表格照相

假如要把“水果表1”用照相机拍照到“水果表2”。当前工作表为“水果表1”，框选整个表格，单击“照相机”给选中表格照相，单击窗口底部的“水果表2”切换到该表，单击 E1 单元格，则“水果表1”显示到“水果表2”右边；操作过程步骤，如图2所示：

提示：如果表格上浮有图片，可以把表格内容和图片一起拍照，只要它们在框选范围内，如图3所示：

（二）数据同步

1、用照相机拍成图片的表格仍能保持数据同步。“水果表1”“苹果的销量为 890，把它改为 1000，演示如图4所示：

2、切换到“水果表2”，被拍成图片的“苹果”的“销量”也变为了 1000，如图5所示：

3、表格被拍成图片后，为什么还能自动更新？这就涉及Excel照相机拍照的实质，其实照相机拍照是对原表格的引用，当选中“水果表1”图片时，编辑栏的输入框中自动显示“=水果表1!$A$1:$D$7”，也就是对“水果表1”的引用，如图6所示：

4、除可以把同一Exel文档中一个工作表的表格拍到另一个工作表外，还能把不同Excel文档中的工作表从一个文档拍到另一个文档，但要注意，只有两个工作表都打开时，数据才能同步；另外，如果把拍成的图片复制到 Word，则不会数据同步。

（三）导回原表格

只要双击被拍成的图片，Excel 会自动导回原表格，不管表格被拍到同一文档的不同工作表还是不同文档的不同工作表。假如“excel新教程”文档中有从“水果表1”文档拍来的图片，现在通过双击图片导回原表，操作过程步骤，如图7所示：

（四）去掉图片边框

选中照相机拍成的图片，窗口上边出现“图片工具”，选择“格式”选项卡，单击“图片边框”，在弹出的菜单中选择“无轮廓”，则图片边框被去掉，单击空白处，图片已经没有边框，操作过程步骤，如图8所示：

（五）跨屏截图

如果表格超过一屏，用照相机可以把超屏的部分也拍下来。方法为：选中表格左上角第一个单元格，按住 Shift，单击表格右下角最后一个单元格，把整个表格选中，单击“照相机”把选中表格拍照，到要显示图片的位置单击一下即可。

三、Excel不用照相机也能把表格生成图片

1、当前工作表为“水果销量表2”，框选整个表格，按 Ctrl + C 复制，切换到 Sheet1 工作表，选中要放图片的位置（如 A1），确保当前选项卡为“开始”，单击窗口左上角的“粘贴”，在弹出的菜单中选择“其他粘贴选项”下的“图片”，则原表格被粘贴为图片；操作过程步骤，如图9所示：

2、如果是 Excel2003，弹出的粘贴选项中没有“图片”，需要按住 Shift 才有“图片”选项。

提示：用这种方法生成的图片不能与原表同步更新，因为它已经生成了图片，并不是对原表格的引用，所以有数据同步要求的要用照相机拍成图片。

1.做一个简单表格,如图这样

测试数据

2.新建一个img文件夹，命名为照片，放到d盘中，按人名命名。

img文件夹

3.然后在照片中输入此内容

="

把所有数据都显示出来。

Table

4.然后把内容复制到记事本中去，把excel的数据清除掉。

复制到文本

5.调整好照片表格大小,然后复制记事本的内容，选中单元格中右键-选择性粘贴-unicode文本。

unicode文本

效果

?

Excel中的图片导入与查询，方法和工具都有了

忆寒

展开

小伙伴们周六好啊，今天和大家一起学习如何使用函数公式来查找图片。

先看效果：

咱们看看如何实现这样的效果。

步骤一：

准备好图片资料，话说巧媳妇难做无米之炊，没有资料，如何查询？

如下图所示：A列是产品名称，B列是对应的图片。注意图片的大小要在单元格的边框以内，不要过界。

步骤二：

建立一个图片查询工作表，在A2单元格设置数据有效性，在数据有效性的允许序列中添加图片资料库的产品名称单元格区域：

按Ctrl+F3调出名称管理器，点击【新建】按钮，新建一个名称“图片”，在引用位置编辑框内输入以下公式：

=OFFSET(图片资料库!$B$1,MATCH(Sheet2!$A$2,图片资料库!$A:$A,)-1,)

接下来就是见证奇迹的时刻：

复制图片资料中的一个图片，粘贴到查询工作表的B2单元格中。

有朋友大概会说了，介个不是有毛病吗，折腾半天还有复制过来。

别急，还没说完哈。

单击图片，编辑栏输入以下公式，按回车键

=图片

这样就妥妥的了，在A2单元格的下拉列表中选择不同的产品名称，B2就会出现对应的图片。

最后简单说说自定义名称中用到的公式的意思：

=OFFSET(图片资料库!$B$1,MATCH(Sheet2!$A$2,图片资料库!$A:$A,)-1,)

首先，用MATCH函数查询A2单元格的产品名称在图片资料库A列所处的位置。计算结果用作OFFSET函数的行偏移参数。

使用OFFSET函数，以图片资料库工作表B1为基点，向下偏移行数就是MATCH函数的结果。因为MATCH函数计算的是在整列中的位置，所以如果从B1开始偏移，就需要再减去1。

也就是随着A2产品名称的变化，动态的引用与之对应的、在图片资料库B列中的图片单元格。

?

Excel表格中单个单元格背景图片添加，你学会了吗？

楼剑通

展开

前几天跟大家分享的Excel表格如何添加漂亮的背景图片，就有同学问我如何给单个单元格添加背景。

今天就跟大家分享Excel如何给单个单元格添加背景图片。

1、在【插入】功能选项中的“文本”菜单中选择插入一个横排文本框；

插入文本框

2、插入文本框后，在文本框中右键点击选择“设置形状格式”；

3、通过设置图片格式，填充项选择“图片或纹理填充”，插入图片来自“文件”选择自己需要的图片；

插入图片

4、图片插入完成后，在设置图片格式文本选项处，不要勾选“根据文字调整形状大小”前面的框；

设置图片格式的文本选项

5、在Excel单元格中插入图片后便可在图片中输入你要的文字内容，根据自己的需求来调整“文本选项”里面的文本框设置，字体的设计也可到【开始】功能选项下方的字体菜单中设置；

输入文字内容

6、根据自己的需要来设置图片格式中的形状选项，下图是将三位格式中的顶部棱台设置为“冷色斜面”格式；

设置自己需要的效果

7、Excel单个单元格中的背景图片添加完成效果呈现。

设置完成效果呈现

Excel单个单元格中背景图片的添加，很多时候我们会将这个小技巧用在Excel表格中的按钮设置，可能朋友们在工作中用到的不多，希望这个小技巧分享对需要的朋友有所帮助！

更多关于Office——Excel操作技巧可与我们一起交流！

?

Excel表中批量导入照片，这个方法挺管用

Lobito

展开

小伙伴们好啊，今天老祝继续和大家分享一个比较冷门的技巧，将照片批量导入Excel表。

首先在Excel工作表中输入员工姓名和序号。

在文件夹中准备好统一尺寸的员工照片：

单击姓名所在列的任意单元格，在【数据】选项卡下点击【升序】按钮：

然后设置工作表的行高和列宽。设置的行高可以比实际图片高度再大一些。

单击C2单元格，插入图片。

在【插入图片】对话框中找到照片文件夹位置，单击任意一个图片，然后按Ctrl+A全部选定，再按【插入】按钮：

插入的图片效果如下图所示：

选中最上层的照片，拖动到最后一个姓名的对应位置。

单击最后一个图片，再按Ctrl+A选中全部图片

单击【格式】→对齐→纵向分布

然后再单击【格式】→对齐→水平居中

此时的效果如下图所示：

单击A列序号任意单元格，数据→升序

最后再适当调整一下行高列宽，OK

?

excel图片怎么嵌入单元格

皮幻丝

展开

　　1、例如，在下面的表格中，我们要在照片栏中插入每个员工的照片。

　　2、单击选中要插入图片的单元格，如图中单元格E3。

　　3、依次点击菜单“插入”——“图片”——“来自文件”。

　　4、在“插入图片”窗口，选择要插入的图片，点击“插入”按钮插入图片。

　　5、在excel表格中，拖动图片控制点，调整图片大小以与单元格边框对齐。

　　6、在图片上双击鼠标，打开“设置图片格式”窗口，在“属性”页面，选择“大小，位置随单元格而变”。

　　7、设置好后，调整单元格大小，照片随之调整。

　　8、其它单元格要插入图片：如何是excel2003，则必须重复以上步骤进行插入。

　　而如果是EXCEL2007，2010的话，可以先复制设置好的图片，然后进行粘贴，全部复制好后，在图片上右键鼠标，弹出菜单中选择“更改图片”，然后把图片更改成需要的图片就可以了。

（本文内容由百度知道网友yjtkgg321贡献）

?

EXCEL中如何导入图片

包谷南

展开

 原因：

EXCEL软件只要用来，制作电子表格的，软件开发功能，不支持直接复制图片到EXCEL里，因此不能直接复制图片到EXCEL里面。

解决方法：可以通过导入图片的方法，把图片保存到EXCEL里。

方法如下：

1、打开excel，点击插入选项卡；

2、点击“图片”的图标，按照路径选择自己需要插入的jpeg图片，点击插入即可。

扩展知识：

把EXCEL图片导出方法：

1、打开EXCEL文件。

2、鼠标右键需要保存的图片。

3、选择“复制”。

4、把图片粘贴到qq或者window画图工具就可以保存了。

（本文内容由百度知道网友surfphpseo贡献）

?

通过excel图片工具对图片格式进行设置

灰烟飞

展开

我们在excel中插入图片以后， 我们可以通过excel的图片工具，对图片的格式进行设置了，其中包括图片的调整，以及样式的设置等，通过excel图片工具对图片格式进行设置其具体操作方法如下：

1、选中已经插入到excel中的图片，在“调整”组中单击“重新着色”下拉按钮，在弹出的下拉列表中选择“设置透明色”选项，如图1所示。

图1

2、此时鼠标指针变成一个小画棒的形状，将鼠标指针移动到图片上方，单击图片空白处，对图片进行透明色设置，如图2所示。

图2

其实，设置图片的透明色，就想在PS里抠图一样，这里只是简化了一些步骤。

3、我们还可以给excel图片添加外观，在“图片样式”组中单击图片外观样式按钮，在弹出的下拉面板选择“棱台矩形”选项，如图3所示。

图3

4、设置图片发光的方法是，在“图片样式”组中单击“图片效果”下拉按钮，在弹出的下拉列表中选择“发光”|“强调文字颜色6.5pt”选项，如图4所示。

图4

5、给图片加个阴影可以在“图片样式”组中单击“图片效果”下拉按钮，在弹出的下拉列表中选择“阴影”|“左上对角视图”选项，如图5所示。

图5

6、最后，我们看一下刚才我们通过excel图片工具给大家设置的图片效果，如图6所示。

图6

我们今天学习了，通过excel图片工具对图片格式进行设置，我们可以给图片调整透明色，添加外观、发光、阴影等设置，我们还可以通过excel的图片工具对图片进行更多的处理，比如可以调整图片的亮度和对比度，压缩图片等等。

Copyright © 1999-2026 中企动力科技股份有限公司（300.cn）All Rights Reserved

京公网安备11030102010293号 京ICP证010249-2

代理域名注册服务机构：中网瑞吉思（天津）科技有限公司 北京新网数码信息技术有限公司

域名注册服务机构许可证编号：京D3-20220007

中企动力域名投诉处理：400-660-5555-9 service4006@300.cn

中国互联网络信息中心（受理范围：“.CN”和“.中国”域名）投诉处理 010-58813000  service@cnnic.cn

立即联系我

立即提交

在线咨询

建站在线咨询

获取方案

获取建站报价/方案

我们联系您

提  交

微信咨询

扫一扫添加
动力姐姐微信

TOP

我们尽快联系您

公司名称

手机号码

联系人

验证码

取消 提交