word中用宏批量修改图片大小

直接上代码，前提是word中的宏可以用

使用宏的位置 菜单栏=》视图=》宏=》查看宏，然后输入名字，新建，代码复制进行，然后执行就可以了

Sub 调整图片大小()
    Dim n As Integer '图片个数计数器
    
    '忽略错误，确保代码在遇到包含非图片对象的形状时继续运行
    On Error Resume Next
    
    '循环遍历文档中的所有内联形状
    For n = 1 To ActiveDocument.InlineShapes.Count
        '检查当前形状是否为图片
        If ActiveDocument.InlineShapes(n).Type = wdInlineShapePicture Then
            '设置图片高度和宽度
            '设置图片高度和宽度，取消锁定纵横比
            ActiveDocument.InlineShapes(n).LockAspectRatio = False
            ActiveDocument.InlineShapes(n).Height = 100
            ActiveDocument.InlineShapes(n).Width = 100
        End If
    Next n
End Sub

其中100的单位是像素，换算单位是

像素和厘米的换算单位取决于屏幕分辨率和设备的像素密度。然而，有一个常见的规则可以帮助您理解它们之间的关系。

1 像素大致等于 0.26 厘米（或 2.54 厘米每 100 像素）。

这是基于标准屏幕设置的近似值，其中屏幕分辨率设置为 96 像素每英寸（ppi）。在这种设置下：

1 英寸 = 2.54 厘米 1 英寸 = 96 像素

因此：

1 厘米 = (1 英寸 / 2.54) = 0.3937 英寸 1 像素 = (1 英寸 / 96) = 0.0104 英寸

现在，将 1 厘米的值除以 1 像素的值：

0.3937 英寸 / 0.0104 英寸 = 37.89 像素

所以，大约 38 像素等于 1 厘米。这意味着您可以将像素值乘以大约 0.26（或除以大约 3.8）来获得厘米值，反之亦然。

请记住，这是一个近似值，实际转换可能会因屏幕设置和设备的实际像素密度而略有不同。对于需要更高精度或处理高分辨率显示器的应用程序，可以使用更复杂的计算。

锁定纵横比的代码可以去掉，宏真niubi！

上效果看看