纯图片排版怎么排(PPT图片排版没思路)-秒鲨号

纯图片排版怎么排(PPT图片排版没思路)

我们经常都需要在Word中插入一些图片，但是图片有大有小，一张张调整的话十分麻烦，那么有什么办法可以快速、批量调整呢？别急！小编今天就来教你几招，分分钟搞定图片排版，超级简单！

一、F4排版法

1、设置图片大小

第一个办法就是用F4快捷键来排版，F4的功能是重复上一步的操作。

我们将图片插入到Word中，然后对其中一张图片进行设置，调整好大小等参数：

2、F4快速排版

然后点击其他图片，按F4就可以快速统一格式了，操作如图：

二、代码排版法

1、输入代码

由于F4的办法需要一张一张点击图片，所以图片的量很多的时候就不太适合了，这时候我们可以用第二个办法，这里用到的是这串代码，有需要的小伙伴先复制保存。

Sub setpicsize() '设置图片大小 Dim n ' 图片个数 On Error Resume Next ' 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中 If ActiveDocument.InlineShapes(n).Width >= ActiveDocument.InlineShapes(n).Height Then ActiveDocument.InlineShapes(n).Width = 28.345 * 14 '设置图片宽度 500px Else ActiveDocument.InlineShapes(n).Width = 28.345 * 8 '设置图片宽度 300px End If Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中 If ActiveDocument.Shapes(n).Width >= ActiveDocument.Shapes(n).Height Then ActiveDocument.Shapes(n).Width = 28.345 * 14 '设置图片宽度 500px Else ActiveDocument.Shapes(n).Width = 28.345 * 8 '设置图片宽度 300px End If Next n End Sub

然后我们在Word中按「Alt + F8」键，创建「setpicsize」，然后将这串代码复制粘贴进去即可~