分享 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时，有时需要将单元格宽度和高度的单位设置成厘米，例如在用Excel排版制作档案盒、文件夹等的标签时。但在调整Excel单元格宽度和高度时，默认是以磅和像素为单位的。这里以Excel2007为例介绍一下如何将Excel单元格高度和宽度的单位设置成厘米，供大家参考。

●先点击Excel2007的Office按钮菜单中的“Excel选项”按钮，打开Excel选项对话框。（注：其他版本的Excel打开Excel选项对话框的方式可能不同，例如Excel2010应点击“文件”菜单中的“选项”。）

●点击打开Excel选项对话框中的“高级”选项卡。

●打开“高级”选项卡后，Excel2007中需将右侧的滑块拖至下图所示的位置。

●此时在高级选项卡中的“显示”处可以看见“标尺单位”下拉框，点击该下拉框。

●点击后会弹出下拉菜单，在下拉菜单中点击“厘米”选项。

●设置好后点击下方的“确定”按钮确认。（注：到这里可能还不能使用厘米单位，还应继续看下一步。）

●虽然设置好了以厘米为单位，但如果Excel当前的视图方式仍为默认的普通视图，则列宽和行高仍然会是以磅和像素为单位。要想使用设置好的厘米单位，需要点击Excel下方图示的“页面布局”按钮，将视图方式转换为“页面布局”视图。

●在“页面布局”视图中调整列宽或者行高，就会发现显示的单位是厘米了。

●如果觉得拖动鼠标更改行高和列宽不容易进行精确的设置，可以手动输入行高和列宽的具体数值，方法是：在行号或者列标上点击鼠标右键，再用鼠标左键点击弹出菜单中的“列宽”或者“行高”。

●点击后就会弹出“列宽”或者“行高”的设置对话框，其中的单位就是之前设置的厘米（cm），在“cm”前输入想要设置的数值，再点击“确定”按钮即可。

有帮助的话，点击关注或者分享给更多朋友吧！

WORD在使用中的两种方法：

其一：通过拖拽方式进行调节，即在单元格边线上长摁左键进行拉拽，

配合Alt键可以进行微调。

其二：选中单元格，右键选择表格属性。

1. 选中单元格，右键选择表格属性。对行与列中指定高度与宽度进行数值的细微准确调节。

2. 对行与列中指定高度与宽度进行数值的细微准确调节。

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

选中需要打印的区域，选择：页面布局--打印区域--设置打印区域；

选择：页面布局--打开页面设置；

选择：页面，调整缩放比例，或者“调整为1页宽1页高”；

选择：页边距，调整四个方向的页边距，或者选择：居中方式，勾选“水平居中”、“垂直居中”；

以上操作，需要适当调整行高、列宽，并点击打印预览，查看打印效果，确保行高列宽选择适当，布局称体。

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

调整行高的方法：

调整行高时先选择要调整的行数，按住鼠标左键将鼠标放在行头中两行之间的位置上就可以批量调整所选行数的行高了。

也可以右键点击左侧行头，选择行高，在弹出的窗口中输入数字即可。

点击功能选项中的行列调整项，也可以对行高进行调整。还可以选择最适合行高，这样软件会根据你输入的文字或数字的大小都行高进行有效调整。

调整列宽的方法

调整列宽同行高一样，可以选中要调整的列，鼠标按住左键，将鼠标放在两列之间的位置，进行列宽的调整。

也可以在列头的位置鼠标点击右键，选择列宽，在弹出的窗口中输入数字对列宽进行调整。

使用功能选项中的行列功能选择列宽项也可以进行调整。还可以选择最适合列宽，这样软件会根据需要调整列宽。

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

操作方法如下：

1.如图，将单元格区域复制，并粘贴到另外的区域，很明显，粘贴后并没有所有的格式复制过来。特别是行高列宽。要重新调整很麻烦。

2.其在粘贴选项里选择保持“保留源列宽”就可以了。

3.第二种方法是选择性粘贴的方法，

点鼠标右键→“选择性粘贴”命令，在对话框中选择“列宽”。

4.整行复制可以保留行高，整列复制可以保留列宽，都要保留就只有整表复制。

所以大家如何要同时保持行高和宽的话，要同是选择区域所在的行和列。

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

由于Excel在创建表格时，系统默认表格的行高和列宽为固定值，当我们使用表格的时候，经常会碰到表格内文字过多显示不全或者过少空白太多，为了更美观的展示表格信息，这是我们就需要调整行高和列宽到合适的尺寸了。如果全部手动调整，还是比较麻烦的，今天小编和大家一起学习快速调整行高和列宽的方法。

一、快速调整到合适的行高和列宽

由于操作原理相同，以调整列宽为例：如果B列过宽，那么我们将鼠标移动到B、C列之间的分割线上，此时鼠标变为左右双向箭头显示，按住鼠标左键进行拖拽，此时鼠标旁边会出现被调整单元格的列宽信息，调整宽度到合适的要求后，松开鼠标即可完成。

如果需要快速适应，自动调整列宽，则当鼠标变为左右双向箭头时，双击鼠标左键即可完成系统的自适应调整。也可以，选中列，切换到【开始】选项卡，在【单元格】组中，点击【格式】的下三角按钮，在弹出的快捷菜单中，点击【自动调整列宽】即可。

如需多列进行调整，选中多列后（例如：A-D），在任意列的分割线上（例如：B-C），鼠标变为左右双向箭头即可拖动，表格的多列就同时进行了调整，同时其余选中列都变为B列的列宽。

二、精确调整固定行高和列宽

由于操作原理相同，以调整列宽为例：选中需要调整的列，单击鼠标右键，在弹出的快捷菜单中，点击【列宽】选项，此时弹出【列宽】对话框，在对话框中可以输入列宽的值，例如：20，点击【确定】按钮，回到表格即可看到调整效果。

欢迎关注，以上。

在Word文档中制作表格时，列宽和行高是我们对于表格最直观的感受，但是由于直接插入的表格采用的是默认格式，通常不能够达到让我们满意的效果，那么我们不得不对表格进行行高列宽的调整，来满足自己的需要。今天小编和大家一起来学习如何快速的进行表格行高列宽的调整。

一、微调整行高/列宽

在表格的制作过程中，鼠标拖动表格边缘线可以实现行高和列宽的微调。首先，我们将光标移动到表格边缘线附近，当鼠标箭头变换为【双向箭头】时，按下鼠标左键并拖动鼠标，即可对行高/列宽进行微调。

二、一次性分布等距行高/列宽

我们使用鼠标拖动边线进行宽度或行高的设置时，并不能准确的使表格等距，导致表格分布不均，看起来会怪怪的，实际上，我们选中需要等距的表格部分后，切换到弹出的【表格工具-布局】选项卡中，在【单元格大小】组中，点击【分布行】按钮，即可完成行高的平均分布，点击【分布列】按钮，即可完成列宽的平均分布，仅对选中行、列有用。

三、设置指定行高/列宽

首先，切换到弹出的【表格工具-布局】选项卡中，在【单元格大小】组中，直接输入【高度】或【宽度】的具体数值。也可以在【单元格大小】组中，点击扩展按钮，弹出【表格属性】对话框，在此我们可以设置指定的表格行高/列宽，例如切换到【列】选项卡，勾选【指定宽度】复选框，并在编辑框中输入合适的数字，在度量单位中可选择【厘米】，即可完成设置。有的时候我们在使用文档表格的时候，表格内容已经超出了单元格范围，但是并没有自动改变单元格的大小，这是因为表格【行高值】被设置了固定值。

四、整体调整表格分布

切换到弹出的【表格工具-布局】选项卡中，在【单元格大小】组中，【】点击【自动调整】的下三角按钮，我们可以有以下三种选择【根据内容自动调整表格】、【根据窗口自动调整表格】、【固定列宽】，可以根据我们的实际需要进行快速调整哟。

欢迎关注，以上。

有时，发现表格的行高太高、列宽太宽想调小一些，或者表格超过一页但超出的内容不多，想通过把行高调低的方法将表格缩成一页以节省纸张，然而问题来了，不管怎么调，就是调整不了，线条像被胶水粘住一般怎么也拖不动。行高列宽究竟为什么调不动呢？在介绍之前，我先看如何调整行高和列宽，以及把它们统一的方法。

一、Word表格调整行高的方法

首先打开 Word（我们以 Word 2016 为例），再打开一个有表格的 Word 文档，没有这样的文档，新建一个空白文档，再插入一张表格即可。我们打开的文档有两张表格，如图1所示：

（一）粗调法

以调整第二张表格为例，假如要调整第一行的行高，方法如下：

1、把鼠标移到第一行下边线上，鼠标变为双线双箭头形状，如图2所示：

2、如果要把行高调高，则往下拉，反之往上；我们把行高调低，往上拉一点，如图3所示：

（二）精确调法

方法一：

1、单击一下表格，选择“布局”选项卡，“单元格大小”上面的“高度和宽度”便是当前单元格（光标所在单元格）的高度和宽度，如图4所示：

2、把高度由 0.88 厘米改为 1.2 厘米，按一下回车或单击一下任意空白处，第一行立即变为 1.2 厘米，如图5所示：

方法二：

1、把光标定位到要调整行高的行其中一个单元格，单击“布局”选项卡下“单元格大小”右边的斜箭头，如图6所示：

2、打开“表格属性”窗口，选择“行”选项卡，如图7所示：

3、“指定行高”后面的值便是当前行的高度，为 1.2 厘米，把它改为 1.5 厘米，如图8所示：

4、单击“确定”后，第一行行高变为 1.5 厘米，如图9所示：

调整列宽也有三种方法，并且跟调整行高完全一样，可以参照以上调整行高的方法。

二、Word表格统一行高的方法

方法一：

1、假如要统一表格前三行的行高。把鼠标移到第一行的第一个单元格，按住左键并移到第三行的最后一个单元格，选中前三行，如图10所示：

2、选择“布局”选项卡，在“高度”后面输入三行要统一为的高度，例如 1.2 厘米，按回车，三行高度都变为 1.2 厘米，如图11所示：

3、要统一多少行的行高，选中它们，若要统一整个表格的行高，则选中表格，再按照上面的方法输入统一的高度。

方法二：

1、假如要统一整张表格所有行的高度。单击一下表格，再单击表格左上角的带箭头的十字架选中整个表格，如图12所示：

2、单击“单元格大小”右边的斜箭头，打开“表格属性”窗口，选择“行”选项卡，如图13所示：

3、“指定高度”处于灰色状态，单击一下将它激活，然后输入 1.5 厘米，如图14所示：

4、单击“确定”，表格的所有行高度都统一为 1.5 厘米，如图15所示：

三、Word表格统一列宽的方法

统一列宽的方法与统一行高一样，只举一个例子，具体步骤如下：

1、假如要统一前三列的列宽。把鼠标移到第一行第一个单元格，按住左键，移到第三列最后一个单击格选中前三列，如图16所示：

2、“宽度”后面为空白，说明选中的前三列宽度不统一，输入 2.7 厘米，按回车，则前三列统一为 2.7 厘米，如图17所示：

3、如果要统一表格所有列的宽度，选中整个表格，再指定具体数值即可。

四、Word表格行高列宽为什么调整不了以及解决办法

（一）字号或行间距导致调整不了

1、假如要把第一个表格的第二行由 1 厘米调为 0.6 厘米。单击第二行第一个单元格把光标定位到哪里（或者选中第二行），选择“布局”选项卡，第二行的高度为 1 厘米，如图18所示：

2、把“高度”改为 0.6 厘米，按回车，高度已经是 0.6 厘米，但第二行的高度并未变化，如图19所示：

3、如果把第二行的字号由“四号”改为“小五”，则行高随之变低，如图20所示：

4、把行间距由“单倍行距”改为“固定值”，行高也会被调低，步骤如下：

A、选中第三行中的文字，把第三行的高度也改为 0.6 厘米，选择“开始”选项卡，单击“段落”右边的斜箭头，如图21所示：

注意：不能通过单击第三行前面选中第三行，而是选中第三行的文字，否则会出现异常。

B、打开“段落”窗口，“行距”当前为“单倍行距”，如图22所示：

C、把“行距”改为“固定值”，“设置值”保持默认的 12 磅，如图23所示：

D、单击“确定”，字号没有变小的情况下，第三行仍然变低，如图24所示：

（二）单元格边距导致调整不了

1、单击“布局”选项下的“单元格边距”，把表格的单元格上下边距都调为 0.3 厘米，单击“确定”后的效果及上下边距设置值如图25所示：

2、把第五行的高度调为 0.3 厘米，按回车后，第五行高度并未变化，如图26所示：

3、重新把单元格的高度调为 0 厘米，则第五行及表格的其他所有行的高度随之降低，如图27所示：

导致行高调不了的因素有三个，即字号、行间距和单元格边距，它们之间并不全是并列关系，也就是说，出现不能调整行高时，不光要检查字号是否太大，还要检查行间距和单元格边距，只有把它们都调小了，行高才能与所设值最接近。