电子表格和文档如何添加图片自动排列

发布网友发布时间：2022-04-22 12:26

我来回答

共3个回答

热心网友时间：2022-05-01 05:52

图片插入部分操作步骤：

1、新建WORD文档，设置为A4纸，并设置好边界距离

2、计算好A4纸扣除边界距离所剩下的空白空间

3、将需要载入WORD的图片SIZE设置为A4剩余空间除以3后的数字大小（实际SIZE须略小于这个数字）

4、在word菜单中选择插入图片，将所有图片一次性插入文档，图片将会自动排列成3X3的版式。

5、效果如附图

或者

1、新建EXCEL空白档，设置好需要的边界

2、打开工具选项，打开”宏“，新建一个”宏”命令

3、插入9张图片，依次修正大小，排好版面

4、保存宏命令，设置执行宏命令快捷方式，架设为ctrl+1

5、在EXCEL的第二个工作标签插入第二组9图，执行ctrl+1宏命令，则电脑将会自动把工作表1的所有操作重复操作1次，直至自动排版完成。

6、最后保存为电子档。

追问

你好可以再问一下吗就是我的图有点多有什么方法我一次性添加所有图片然后每页9张剩下的图片自动排列到下一页呢最好标题能留如图

热心网友时间：2022-05-01 07:10

选择这些图片后，选择“绘图”工具栏的“对齐与分布”——“横向分布”或“纵向分布”，还可以根据需要“水平居中”、“垂直居中”等按钮。如果要统一调整大小，可以在选择这些图片后，设置对象格式，设置高度和宽度。

或者：
先把行高调整到合适的宽度（刚好可以放下一张图片），然后用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim xPic As Shape
Dim i As Integer
i = 1
For Each xPic In ActiveSheet.Shapes
If xPic.Type = 13 Then
xPic.Left = Range("A" & i).Left
xPic.Top = Range("A" & i).Top
i = i + 1
End If
Next
End Sub
在此界面直接按F5运行此宏，所有图片的左上角依次与单元格A1、A2、A3、...的左上角对齐。

热心网友时间：2022-05-01 08:45

你是需要拼图吧，可以使用美图，或者小乐图客（Chrome浏览器扩展）