Sub SetImageHeight()
    Dim img As InlineShape
    Dim imgHeight As Single
    
    '指定图片高度，单位为厘米
    imgHeight = 10
    
    '遍历所有内联图片并设置其高度
    For Each img In ActiveDocument.InlineShapes
        If img.Type = wdInlineShapePicture Then
            img.Height = CentimetersToPoints(imgHeight)
        End If
    Next img
End Sub

在代码中，我们首先定义了所需的图片高度（单位为厘米）。然后，我们使用ActiveDocument对象获取当前文档对象，并使用Shapes集合循环遍历文档中的所有形状。对于每个形状，我们检查其类型是否为图片，然后计算并设置其高度和宽度，并将其居中对齐。在计算图片的宽度时，我们根据图片的纵横比计算宽度，以确保图片不会变形。最后，我们使用CentimetersToPoints函数将所需的高度从厘米转换为磅，以便在Word文档中设置形状的高度。

要运行此代码，请打开您想要处理的Word文档，并按下Alt + F11打开Visual Basic Editor。然后，将上述代码复制粘贴到一个新的代码模块中，并单击“运行”按钮或按下F5键来执行代码。代码运行完毕后，文档中的所有图片都应该被设置为指定的高度并居中对齐。