批量调整WPS中插入的图片大小

最新推荐文章于 2025-04-14 09:32:57 发布

四月的我

最新推荐文章于 2025-04-14 09:32:57 发布

阅读量6.5k

点赞数 2

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/qq_40584593/article/details/96015491

本文介绍如何在WPS中创建宏并提供了一段VBA代码示例，该代码用于批量设置文档内图片的尺寸和对齐方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

https://3g.163.com/dy/article/DF71NH650511PTTN.html
https://www.zhihu.com/question/23242989

WPS怎么创建宏在WPS中录制宏的方法
https://jingyan.baidu.com/article/0a52e3f41c1d0abf63ed727b.html

工具链接：https://pan.baidu.com/s/1MUFx-4hGqm2I05r1FEbvOw
提取码：u5zd

图片进行大小设置，解除纵横锁定，居中

Sub FormatPics()
    Dim iSha As InlineShape
    For Each iSha In ActiveDocument.InlineShapes
    If iSha.Type = wdInlineShapePicture Then
       iSha.LockAspectRatio = msoFalse '不锁定纵横比
       iSha.Width = CentimetersToPoints(14) '宽14CM
       iSha.Height = CentimetersToPoints(8) '高8CM
    End If
    Next
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter  ’使得图片自动居中
Next n
End Sub