word图片四周型环绕怎么设置(点击选择插入导入)
Author
生成
海报
公众号名称

公众号描述

关注
word图片四周型环绕怎么设置(点击选择插入导入)
06-01

前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型。

默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型,然后才能批量更改大小,而批量更改大小方式需要使用VBA代码。

第一步:打开 Word 文档,并按下 Alt + F11 键(笔记本电脑按alt+fn+f11),打开 Visual Basic for Applications (VBA) 编辑器。在 VBA 编辑器中,选择 "插入" -> "模块",创建一个新的模块,如下图所示输入对应的代码。

第二步:在(VBA) 编辑器输入对应的过程代码:

VBA代码:

作用:循环遍历所有的环绕方式为嵌入型图片,将其更改为四周型

Sub ConvertInlineToSquareWrap()

Dim pic As InlineShape

循环遍历所有的嵌入型图片

For Each pic In ActiveDocument.InlineShapes

检查是否为图片类型

If pic.Type = wdInlineShapePicture Then

设置为四周型

pic.Select

Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

End If

Next pic

End Sub

VBA代码:

作用:更改图片大小(对环绕方式为四周型或上下型起作用,如果是嵌入型不起作用)

Sub ResizeImages()

Dim shp As Shape

更改下面的宽度和高度为所需的尺寸(以厘米为单位)

Dim targetWidth As Single

targetWidth = CentimetersToPoints(5) 例如,将图片宽度调整为5厘米

Dim targetHeight As Single

targetHeight = CentimetersToPoints(5) 例如,将图片高度调整为5厘米

循环处理文档中的所有图片

For Each shp In ActiveDocument.Shapes

If shp.Type = msoPicture Then

更改图片大小

shp.LockAspectRatio = msoFalse

shp.Width = targetWidth

shp.Height = targetHeight

End If

Next shp

End Sub

说明:在 targetWidth = CentimetersToPoints(5) ,这个地方可以更改对应的最终目标图片的宽度; targetHeight = CentimetersToPoints(5) 可以更改对应的最终目标图片的高度;

运行宏:在 VBA 编辑器中,选择 "运行" -> "运行子过程",或按下 F5 键。

第三步:关闭VBA 编辑器回到Word中,选择 "开发工具" -> "宏",在弹出的宏对话框,如下图所示,宏对话框列表就会出现创建的过程,依次选定单击运行即可批量更改图片大小。

http://www.dushuwu.net/?570.html

本文由同城头条作者上传并发布,同城头条仅提供信息发布平台。文章仅代表作者个人观点,不代表同城头条立场,未经作者许可,不得转载。
阅读 15

第一次接受赞赏,亲,看着给啊

赞赏
0人赞赏
1
3
5
10
其他金额
金额(元)
赏TA
申请头条作者号

便民信息

更多

推荐阅读

热门评论
随便说点什么
发表评论