excel图片批量排版

Sub 插入文件夹中所有JPG文件()Dim Path1, Path2Dim Fso, F1, DownPath1 = AGetOpenFilename("图片文件 (*jpg), *jpg", , "请选择图片")If Path1 <> False Then    Set Fso = CreateObject("SFileSystemObject")    Set F1 = FGetFile(Path1)    Down = MsgBox("是否插入文件夹中所有图片?", vbOKCancel, "提示")    If Down = vbOK Then        Path2 = Dir(FParentFolder & "\*jpg")        Do While Path1 <> ""            ActiveSPInsert FParentFolder & "\" & Path2            ActiveCOffset(1, 0)Select            Path2 = Dir()        Loop    Else        ActiveSPInsert Path1    End IfEnd IfEnd Sub

excel只能对图片在excel中的属性进行处理。包括显示位置、显示大小、以及可以手工设置的一些项目等等。一般来说， 所谓排版就是排版位置和大小，这是可以的。思路是，循环图片， 判断图片是否是你要的图片，然后计算每个图片需要摆放的位置与大小。指定到相应的位置。如果是导入的图片的话， 还要做导入这一步骤。根据名称进行排版的话， 要判断名称，按照指定的规则让名称与位置数据对应，再将相应的名称指定到相应的位置。具体的代码，需要有原始资料才能写的。

用图片处理软件如PS软件可以做成需要效果的图片。打开PS软件，新建需要大小背景文件，拖进四张图片，调整大小位置，合并图层，保存即可。