Word使用宏批量设置图片大小

最新推荐文章于 2024-11-13 14:54:27 发布

_Bumblebee

最新推荐文章于 2024-11-13 14:54:27 发布

阅读量2.6k

点赞数 10

文章标签： word

本文链接：https://blog.csdn.net/m0_54079463/article/details/135291359

版权

本文介绍如何在Word中通过编写VBA宏，自动调整图片尺寸，设置目标宽度和高度，实现批量图片缩放。

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

打开word插入需要的图片并保存后，按Alt+F11打开宏，点击插入——模块，输入下方代码，点击运行——运行子过程/用户窗体，即可设置大小，可以根据需要更改targetWidth，targetHeight

Sub ResizeAllImages()
    On Error Resume Next
    
    Dim img As InlineShape
    Dim width As Single, height As Single
    Dim targetWidth As Single, targetHeight As Single
    
    ' 设置目标大小
    targetWidth = 200  ' 设定目标宽度（以磅为单位）
    targetHeight = 200  ' 设定目标高度（以磅为单位）
    
    ' 遍历文档中的所有图片
    For Each img In ActiveDocument.InlineShapes
        With img
            ' 获取当前图片的原始尺寸
            width = .Width
            height = .Height
            
            ' 计算缩放比例
            If width > height Then
                .Width = targetWidth
                .Height = (targetWidth / width) * height
            Else
                .Height = targetHeight
                .Width = (targetHeight / height) * width
            End If
        End With
    Next img
    
    MsgBox "所有图片大小已设置为：" & targetWidth & " x " & targetHeight & " 磅。", vbInformation
End Sub