批量插入图片怎么平铺到EXCEL里

Sub 单元格自动插入图片()
'选定起始单元格后，按一定行数(1-n)自动往返插入各种格式的图片，
'并在单元格中写入插入图片的名称。

Pf = "ai,"
Pf = Pf & "bmp,bmz"
Pf = Pf & "cdr,cgm,"
Pf = Pf & "dib,dwg,dxf,"
Pf = Pf & "emf,emz,eps,exf,exif,"
Pf = Pf & "fpx,"
Pf = Pf & "gfa,gif,"
Pf = Pf & "hdr,"
Pf = Pf & "ico,"
Pf = Pf & "jfif,jpe,jpeg,jpg,"
Pf = Pf & "pcd,pct,pcx,pcz,pict,png,psd,"
Pf = Pf & "raw,rle,"
Pf = Pf & "svg,"
Pf = Pf & "tga,tif,tiff,"
Pf = Pf & "ufo,"
Pf = Pf & "wdp,wmf,wmz,"

K = InputBox("插入行数，1=按列挿入", "插入行数", 1)
If K = "" Then Exit Sub
Dim Rng As Range: Set Rng = ActiveCell

OpenFile = Application.GetOpenFilename("Picture Files(*.*),*.*", , "打开目标文件夹后选择任一图片即可指定文件夹。或按取消则会将当前文件所在文件夹认作指定文件夹。")
If OpenFile = False Then
myDir = ThisWorkbook.Path & "\"
Else
myDir = Left(OpenFile, InStrRev(OpenFile, "\"))
End If
Filename = Dir(myDir)

Application.ScreenUpdating = False

Do While Filename <> ""
If InStr(Pf, LCase(Right(Filename, Len(Filename) - InStrRev(Filename, ".")))) > 0 Then
Rng.Cells(1 + n \ K, n Mod K + 1).Select
ActiveCell = Left(Filename, InStrRev(Filename, ".") - 1)

ActiveSheet.Pictures.Insert(myDir & Filename).Select
With Selection
.Placement = xlMoveAndSize
.ShapeRange.LockAspectRatio = msoFalse
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Height = ActiveCell.Height
.Width = ActiveCell.Width
End With
n = n + 1
End If
Filename = Dir
Loop

Application.ScreenUpdating = True
Rng.Select
End Sub

　1、打开表格。

　　2、点击工具栏里的”打印预览“图标。

　　3、点击后，弹出对话框。

　　4、然后点击”设置“，弹出如下对话框。

　　5、点击”页面设置“，然后根据自己的需求来设置页面方向等等。

　　6、再点击”页边距“设置，如果内容比较多，又想节省纸张，可以将页边距调小。

　　7、再点”页眉页脚“设置，根据自己的需要，添加相应的页眉和页脚。

这个功能应该是没有的吧！不过你可以使用对齐选项呀，这个选项应该可以满足你你的需求。
第一，你可以先将图片批量导入。
第二，将任意一张图片水平向右（左）拖开，然后选中一张图片，按CTRL+A，将这此图片全选中。
第三，在用图片工具，“格式”下的“对齐”选项，先选择一种对齐方式，例如项端对齐，然后选择“横向分布”，即可。

使用邮件合并中的插入域

一、EXCEL里没有批量插入图片的平铺功能。
二、Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh操作系统的电脑而编写和运行的一款试算表软件。
Excel是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。