Excel图片排版

可以写代码调整，自动完成很便捷！

对于excel2007或2010，比如顶端对齐：1、按着ctrl键或者shift键不放，用鼠标左键点击选择需要进行顶端对齐的所有图片；2、点击“页面布局”菜单，在“排列”功能菜单中点击“对齐”按钮；3、在弹出的菜单中选择“顶端对齐”其他对齐方式如法炮制。

vba，代码

选择这些图片后，选择“绘图”工具栏的“对齐与分布”——“横向分布”或“纵向分布”，还可以根据需要“水平居中”、“垂直居中”等按钮。如果要统一调整大小，可以在选择这些图片后，设置对象格式，设置高度和宽度。或者：先把行高调整到合适的宽度（刚好可以放下一张图片），然后用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub test()Dim xPic As ShapeDim i As Integeri = 1For Each xPic In ActiveSShapesIf xPType = 13 ThenxPLeft = Range("A" & i)LeftxPTop = Range("A" & i)Topi = i + 1End IfNextEnd Sub在此界面直接按F5运行此宏，所有图片的左上角依次与单元格A1、A2、A3、的左上角对齐。

vba，代码

按ctrl+a全选图片，点击格式，对齐，纵向分布，点击对齐，水平居中就可以了。具体步骤：1、可以全选图片在格式中进行批量排版。2、打开excel，选中单元格，点击格式，点击行高，将行高设置为150，点击确定。3、选中b2单元格，点击插入，图片，此设备，桌面，选中图片，点击插入。4、拉动图片的一角对图片进行缩小，将最上面的图片移动到最后的单元格中。5、按ctrl+a全选图片，点击格式，对齐，纵向分布，点击对齐，水平居中就可以了。

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软件，新建需要大小背景文件，拖进四张图片，调整大小位置，合并图层，保存即可。