word表格里批量加图片

㈠ word批量导入图片并自动排版

word批量导入图片并自动排版方法如下：

工具：联想笔记本电脑e460、Windows10系统答带、WPS Office 2018.8.24.20794。

1、打开一个需要批量图片知链排版的word文档，文档中图片排版无序，需要调整排版。

㈡ 如何在word 的表格中批量插入图片

1、例如：把网络经验的LOGO批量插入到表格每一个单元格里。

㈢ word表格怎么批量插图

在资源管理器中按住Ctrl键。
word表格批量插图的方法如下：首先打开word文档，点击“插入”-“图片”-“此设备指凳前”；最后打开资源管理器，按住Ctrl键，依次点击选中图片，点击“插入”，即可把全部的图片插粗悄入到word文档中。
word页面铺满图片可以进入图片工具中的图片格式菜单，点击环绕文字选项，再选择衬于文字下方后通过拖动图片四周的端点将图片铺满唯清页面即可。

㈣ 如何实现Word 中批量插入图片

Sub批量添加图片()
'程序功能：批量添加图片宏
'作者Q：766110727
'日期：2017.06.07
'使用步骤1：word中ALT+11进入VBA宏界面；
'使用步骤2：将本段代码从sub到endsub，全部粘到代码框最后的空白处；
'使用步骤3：按F5执行代码。
'说明：代码按最直观的逻辑写的，也方便大家使用修改。
'OnErrorResumeNext
Dimn,图片路径1(),图片路径2(),图片路径3(),图片路径4(),图片数量最大值
DimmyTableAsTable
'###################################################################
'#######第一部分：获取每个文件夹下所有jpg图片名，写入相应数组#######
'###################################################################
n=0
图1=Dir("I:	tjbt插入图片图片*.jpg")
DoWhile图1<>""
n=n+1
ReDimPreserve图片路径1(1Ton)
图片路径1(n)="I:	tjbt插入图片图片"&图1
图1=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图2=Dir("I:	tjbt插入图片图片2*.jpg")
DoWhile图2<>""
n=n+1
ReDimPreserve图片路径2(1Ton)
图片路径2(n)="I:	tjbt插入图片图片2"&图2
图2=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图3=Dir("I:	tjbt插入图片图片3*.jpg")
DoWhile图3<>""
n=n+1
ReDimPreserve图片路径3(1Ton)
图片路径3(n)="I:	tjbt插入图片图片3"&图3
图3=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n
n=0
图4=Dir("I:	tjbt插入图片图片4*.jpg")
DoWhile图4<>""
n=n+1
ReDimPreserve图片路径4(1Ton)
图片路径4(n)="I:	tjbt插入图片图片4"&图4
图4=Dir()
Loop
Ifn>图片数量最大值Then图片数量最大值=n

'###################################################################
'##################第二部分：插入图片到word表格中###################
'###################################################################
'新建一个一行两列表格
SetmyTable=ActiveDocument.Tables.Add(Range:=ActiveDocument.Range(Start:=0,End:=0),NumRows:=1,NumColumns:=2)
'设定后续操作的目标表格为文档的第一个表格
SetmyTable=ActiveDocument.Tables(1)
n=0
DoWhilen<图片数量最大值
n=n+1
之前表格行数=myTable.Rows.Count
myTable.Rows.Last.Select
Selection.InsertRowsBelow4'下方插入4行
'第一行两列，图片序号12
myTable.Cell(Row:=之前表格行数+1,Column:=1).Range.InsertAfterText:="图片1"
myTable.Cell(Row:=之前表格行数+1,Column:=2).Range.InsertAfterText:="图片2"
myTable.Cell(Row:=之前表格行数+3,Column:=1).Range.InsertAfterText:="图片3"
myTable.Cell(Row:=之前表格行数+3,Column:=2).Range.InsertAfterText:="图片4"
'第二行两列，插入图片并设置图片大小
myTable.Cell(Row:=之前表格行数+2,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径1(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+2,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径2(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=1).Range.InlineShapes.AddPictureFileName:=_
图片路径3(n),LinkToFile:=False,SaveWithDocument:=True
myTable.Cell(Row:=之前表格行数+4,Column:=2).Range.InlineShapes.AddPictureFileName:=_
图片路径4(n),LinkToFile:=False,SaveWithDocument:=True
Loop

ActiveDocument.Tables(1).Rows(1).Delete'刚开始建的表格中第一行是空行，删掉

'###################################################################
'######################第三部分：图片格式处理#######################
'###################################################################
'统一设置图片长宽，美化文档。这里会卡好久时间，按需要是否添加本段代码
Forn=1ToActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height=210'设置高度
ActiveDocument.InlineShapes(n).Width=110'设置宽度
Nextn
EndSub

㈤ SOS 紧急~~~在word表格里怎么一次性的插入多张图片

1.菜单“插入-图片-绘制新图形”，
2.菜单“插入-图片-来自文件”，一次选择多个要插入的文件，“插入”。
3.在“绘图”工具栏中点“选择对象”工具（即“绘图”两字右面的箭头），框选刚才插入的全部图片。
4.菜单“格式-图片”，“大小”选项卡中不勾选“锁定纵横比”，再输入高度、宽度（如2厘米、1厘米），最后确定。

㈥ 怎么把多个照片放到word表格里怎么把多个照片放到word表格里

您可以按照以下步骤将多个照片放到 Word 表格中：
1. 打开 Word 文档并创建一个新的表格。在“插入”选项卡下方找到“表格”部分，然后选择合适大小的表格。
2. 在表格中单击要插入图片的单元格，然后在“插入”选项卡下方找到“图片”部分。
3. 在“图片”部分中选择“图片”，然后从您的计算机或互联网上选择第一张要插入的图片。
4. 调整图片大小和位置以适应所选单元格。重复以上步骤，直到您将所有需要插入的图片都添加到表格中。
5. 如果您需要对图像进行进一步调整，例如更改大小或添加边框等效果，您可以使用 Word 中的“格式”选项卡。
6. 最后，保存您的文档并查看结果。
请注意，如果您将多个大型图像放置在单个 Word 表格中，则可能会导致文档变得笨重或响应缓慢。为了避免这种情况，请确保您的图像不太大，并尽可能将它们分布在多个表格中。