分享 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 批量图片导入功能，使单元格高度和宽度适应图片

最近收到很多学员咨询如何针对指定的单元格区域进行锁定，禁止编辑。大家都熟悉保护工作表是对整表进行锁定的，局限性较大，无法进行有针对性的操作。

今天龚老师跟大家分享一下如何针对指定单元格区域进行锁定。

如上图我们需要讲有数据部分单元格进行锁定，其他区域可以进行编辑等操作。

操作步骤

第一步：单击【审阅】中的【允许用户编辑区域】功能。

在【新区域】对话框中设置标题、可以编辑的区域、密码后单击】确定。

单击【应用】

第二步：右击工作表后选择【保护工作表】后单击确定。

完成操作后我们测试一下：

有数据区域

无数据区域只要输入密码就可以编辑。

这么好的小技巧看完记得分享一下哦！

很多时候我们做好的表格，特别是里面有很多函数公式的时候，供别人使用的话难免被误删或修改，导致数据出现错误，但是如果对文件加密设为只读别人就没法使用表格，那么如何设置需要填写单元格可以随便修改，其他单元格无法修改呢？今天就教大家对文件进行保护设置。

大家先看一下 效果图

表格中空白的地方可以修改数据，有颜色的地方就无法修改数据。具体操作如下：

一、选中整个单元格（也可单独选中需要锁定的单元格），右键选中【设置单元格格式】【保护】勾上【锁定】

二、选中可以修改的单元格，右键选中【设置单元格格式】【保护】去掉【锁定】前面的对号。

三、点击【保护工作表】选中【选定未锁定的单元格】输入密码保存即可。

制作粗劣但为原创，动图也是自己制作，不足之处望大家指正，需要制作表格请留言，将为大家免费制作并提供教程。欢迎大家留言、转发、收藏。更希望与大家共同学习。

有时需要把 Excel 文档、Word 文档和 PDF 文档插入到 Excel 中，应该用 Excel 的什么功能？在 Excel 中，有一项插入对象的功能，用它就可以把它们插入到 Excel 当前文档。另外，Excel 还有插入图片和截图的功能，并且插入的图片可以移到指定的单元格中，还能让图片自适应单元格大小。Excel 还有一项与 Word 一样的插入功能，就是插入符号，应用此功能，可以把打钩与带框的打钩插入到指定单元格。以下插入它们的具体操作方法，操作中所用版本为 Excel 2016。

一、在Excel中插入Excel文档

1、单击要插入Excel文档的单元格选中它，选择“插入”选项卡，单击屏幕右上角“文本”右上角的“对象”图标，打开“对象”窗口，选择“由文件创建”选项卡，单击“浏览”，打开选择文件的“浏览”窗口，定位到要插入 Excel文档所在的文件夹（如 G:\Excel文档），双击要插入的 Excel 文档（如“excel表格的基本操作”），返回“对象”窗口，单击“确定”，则所选文档插入到 Excel 中，操作过程步骤，如图1所示：

2、用这个方法插入Excel只能插入一个工作簿，即只插入当前工作簿，也就是最后一次保存时在操作的工作簿。

二、在Excel中插入PDF

1、在Excel中插入PDF的方法与插入Excel文档一样，也用对象插入。选中要插入PDF的单元格，单击“插入”选项卡下的“对象”图标，打开“对象”窗口，选择“由文件创建”选项卡，如图2所示：

2、单击“浏览”，定位到要插入的 PDF 文件所在文件夹，选择一个 PDF 文件（如 Word技术），如图3所示：

3、单击“插入”返回“对象”窗口，单击“链接到文件”勾选它，如图4所示：

4、单击“确定”，则 PDF 插入到 Excel 中，如图5所示：

提示：该方法一次只能把 PDF 文件的第一页插入到 Excel 中，如果一次要把所有页插入到 Excel 中，可以尝试用复制粘贴的方法，但有一个前提，PDF 中的内容必须能选中复制。

三、在Excel中插入图片到单元格且自适应单元格大小

1、选中要插入图片的单元格（如 A1），先把 A1 单元格调大以便于把图片放到其中；选择“插入”选项卡，单击“图片”，打开“插入图片”窗口，定位到要插入图片所在文件夹，双击要插入的图片，则所选图片插入到 Excel 中，把图片调到跟 A1 单元格差不多大小；右键图片，在弹出的菜单中选择“设置图片格式”，在右边打开“设置图片格式”小窗口，选择“大小与属性”图标，单击“属性”展开，选择“大小和位置随单元格而变”；经此设置后，把单元格缩小或放大时，图片也随之变小变大；操作过程步骤，如图6所示：

2、图片属性除“大小和位置随单元格而变”外，还有“大小固定，位置随单元格而变”和“大小和位置均固定”，可以根据需要选择。

提示：把单元格拉大时，如果单元格大小超过了图片插入时的大小，即使选“大小和位置随单元格而变”，图片也不会再变化。

四、在Excel中截图

（一）截当前窗口

选择“插入”选项卡，单击“屏幕截图”，在弹出的菜单中列出了当前打开的所有窗口，选择要截的窗口，则所选窗口被截到 Excel 中，操作过程步骤，如图7所示：

（二）框选截图

1、单击一下 Windows 任务栏要截图的窗口，然后单击 Windows 任务栏的 Excel 切换到 Excel 窗口，选中用于放图片的单元格（如 A1），选择“插入”选项卡，单击“屏幕截屏”，在弹出的菜单中选择“屏幕剪辑”，如图8所示：

2、切换到要截图的窗口，鼠标随即变为一个十字架，按住鼠标左键并移动以框选要截的部分，如图9所示：

3、框选好后放开鼠标左键，则框部分被插入到 Excel 指定的单元格，把单元格调大，让图片恰好在其中，如图10所示：

五、在Excel中插入打钩与带框的打钩

1、选中要插入打钩的单元格（如 N1），选择“插入”选项卡，单击屏幕右上角的“符号”，打开“符号”窗口，当前为“符号”选项卡；单击“字体”下拉列表框，选择“Wingdings 2”，打钩和带框的打钩在第四行左边，选中打钩，单击“插入”，则打钩插入到单元格 N1 中；选中带框的打钩，再单击“插入”，它也被插入到 N1 中，单击“关闭”把符号窗口关闭，N1 中已经有了打钩和带框的打钩；把光标定位到打钩后，按 Alt + 回车换行，则带框的打钩换到下一行，分别在它们后输入文字；操作过程步骤，如图11所示：

2、在“符号”窗口中，打叉与带框的打叉就在打钩的旁边，要插入它们选择就可以了。

汉王光学识别软件。

将软件下载并安装。打开软件并把要识别的图片准备好（以下是百度搜索出来的两张图片当作案例进行讲解）

导入图片进行开始识别，识别完毕后可以将文件识别结果发送到excel内，进行修改

转换后效果如下：

（本文内容由百度知道网友闪动的泪光1贡献）

在数据量大的Excel表格中，查看数据的时候就会不方便，通常找不到行或列的标题。今天跟大家分享Excel表格中关于固定标题的操作小技巧。

操作方法一：冻结窗口（工作中最常用的一种方法）；

通过【视图】功能选项下的窗口菜单中“冻结窗口”，选择你所需要冻结窗口中的选项。比如：我们现在需要冻结标题行，就选择冻结首行。

选择Excel表格中的冻结窗口

冻结Excel表格标题行设置完成，我们看下效果。

操作方法二：将数据区域转换成表

将鼠标放在表格中的任意一个单元格，选择【插入】功能选项下表格菜单中的“表格”，在弹出的“创建表”对话框中不需要做任何修改，默认情况下在表包含标题前面的框中都已经勾选。

将数据区域转换成表

设置完成后将鼠标放在表格中的任意一个单元格往下拖拉，标题行都会在上端出现，方便查看数据。表格的标题行设置固定。

今天跟大家分享的Excel表格中标题行设置固定不动的操作方法，操作方法二在做动态的数据源时用到会比较多，也比较方便。希望今天的分享对大家在工作中有所帮助！

1、找到并打开ABBYY FineReader v12软件。

2、选择“任务”中左侧的“Microsoft Excel”，在里面找到“照片到Microsoft Excel”，并点击。

3、选择需要处理的图片，并将其加载进来。

4、图片加载进来之后会自动进行处理，如果文件较大的话，可能需要稍等片刻。

5、处理完成后，结果会显示在软件界面的右上（图中红框部分）。

6、同样的，软件会自动生成一个由图片表格转换成的Excel表格。由于种种原因，软件转换可能无法做到百分之百正确，因此还需要对照着图片，修改下Excel中的错误，然后排版保存。

7、这样，我们就顺利的把图片里的表格转换成Excel了。

（本文内容由百度知道网友拔剑煮酒论英雄贡献）

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

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

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

插入文本框

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

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

插入图片

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

设置图片格式的文本选项

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

输入文字内容

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

设置自己需要的效果

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

设置完成效果呈现

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

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

工作表中往往会因为工作需要，在一些特定的单元格里面插入图片。但是当单元格需要进行调整，或者内容移动到其他地方，图片的处理也是需要进行考虑的，是留在原先的单元格，还是一起移动到新单元格里。

如图，单元格B2里面有一张图片，现在需要将B2单元格复制到E2中。

但是图片在单元格里，设置的属性不同，复制的过程中会出现不同的情况。

图片属性介绍

工作表中插入的图片，在图片格式里面都会有一个属性。选中图片→鼠标点右键→选择大小和属性，就会出来设置图片格式。

在设置图片格式中，找到属性一栏，里面有三个选项：

*随单元格改变位置和大小

*随单元格改变位置，但不改变大小

*不随单元格改变位置和大小

下面就来详细介绍一下这三个选项的作用，以及如何在复制或者移动单元格的时候，让图片能够根据我们的需要来移动。

随单元格改变位置和大小

当图片属性为这个选项时，如果单元格的行高和列宽变化了，图片的大小也会跟随着变化，图片边缘不会超过所在的单元格。如图所示：

另一种情况是，当这个单元格要复制到另一个单元格里，图片也会跟着复制过去。如果新单元格的行高和列宽比较大，图片会保持原来的大小；如果新单元格的行高和列宽比较小的话，图片也会进行缩小。

因此，选择这个随单元格改变位置和大小属性，不论单元格进行什么操作，图片都会乖乖呆在单元格里了。

随单元格改变位置，但不改变大小

这个属性也是工作表里新插入图片时的默认属性。这时如果改变单元格的行高或者列宽，图片的大小是不会改变的。

如果复制单元格，图片也是会跟着复制到新单元格里的，但是不管新单元格的大小如何，图片本身的大小不会改变。

不随单元格改变位置和大小

理解了前面两条属性以后，这一条的功能也就不难理解了。如果图片设置了这条属性，那么不管单元格是大小进行调整，还是复制到新单元格，这张图片都只会留在原来的位置，大小保持不变。

以上就是关于工作表中图片的三个属性，在实际应用当中，可以根据需要来进行属性的设置，以方便工作进行。

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

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

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

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

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

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

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

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

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

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