小伙伴们，大家好！

平时在Word里制作表格时，需要调整部分单元格的列宽，如下图：

我们需要将红框处的框线往左调整，如果直接拖动，那么，最上面两行的宽度也会同时调整。

你有什么好办法？

方法：选中行再拖动

步骤：1. 选中需要调整的最后三行；

2. 往左拖动框线。

非常简单又实用的技巧，你学会了吗？

欢迎关注“职场e学”，各种职场技能，一学就会，让我们一起变成更厉害的自己！

这个在打印预览之时，把页边距设置下的，也可在页面设置里缩放比例设置下的：

1、设置页边距：文件----打印预览----页边距，此时就可以把页边距拉到最大的。

2、文件----打印预览----页面设置----页面----缩放：缩放比例或者选择调整到一页宽、一页高

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

方法一：

1、选中需要调整的表格；

2、在行号处单击鼠标右键，弹出快捷菜单，选择行高命令，如图所示；

3、弹出行高对话框，在行高处输入所需要的磅值即可，如图所示；

4、用同样的文法，可以设置列宽。

方法二：

1、选中需要调整的表格；

2、将鼠标指针放在行号处，当指针变为上、下箭头时，拖动其中一条分隔线即可进行调整行宽；

3、用同样的文法，可以调整列宽。

（本文内容由百度知道网友废柴船长贡献）

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

首先，选中需要调整的行。

方法一：右键左边方框区域，选择”行高：

然后设置“行高”，点“确定”即可。

方法二：左键选中圆框区域的横线，一直按住左键，上下移动到合适的高度，松开鼠标，选中区域的所有行高都会一起变化。

改变列宽的方式也是一样，先选中需要调整的列，然后通过设定固定列宽值，或者拖动列宽线，来改变列宽。

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

1.在电脑桌面空白的地方右击，点击新建Microsoft Word Document,也就是如图所示点击蓝色的地方即可；

2.双击刚刚建立的新建Microsoft Word Document，打开 Word对话框； 

3.点击 Word对话框上面开始旁边的插入按钮，再点击表格；

4.会弹出一个插入表格的对话框，就根据需要的几行、几列去拉这些表格，选中多少它就会插入多少行和多少列；

5.点击确定，这个表格就出来了；

6.需要的表格里填上需要的数据，如以10月份员工生日名单为例子，来设置想要的高和宽度；

7.选中后点击布局，布局下面有高度和宽度，就可以根据想要的高和宽来输入了。

8.这个就是调整后的高和宽 了。

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

CSS中宽度和高度分别可以通过width和height实现，那么对于单元格的宽度和高度，则可以通过如下样式来设置

td{ width:100px; height:50px;} 

示例如下：

1. 给出HTML元素

   
   \x09
   \x09
   1
   2
   345
   6789
   10
   11

2. 设置单元格高度和宽度样式

   table{border-collapse:collapse;}
   td{
   \x09border: 1px solid green; 
   \x09width:100px;             
   \x09height:50px;             
   \x09text-align:center;       
   }

3. 效果如下

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

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

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

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

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

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

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

WORD在使用中的两种方法：

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

配合Alt键可以进行微调。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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