☰

在 Word 文档中调整多张照片的大小

tag-icon • tag-icon microsoft-word vba
在 Word 文档中调整多张照片的大小

我已经搜索并尝试了多个答案来回答我的问题，但它们似乎不起作用。我有一个数据库，它可以将每条记录的照片和文本打印成文字。信息以表格形式呈现，图片/图像位于表格中的一行中。这些图像由多个用户创建和保存，大小不尽相同。数据库正在将图像调整为我不想要的预定大小。我想使用宏将所有图像的高度调整为 3.5 英寸。我并不真正关心宽度，但希望锁定纵横比。我找到了一些答案，但纵横比解决方案似乎不起作用。运行宏时，代码的这个组件“.LockAspectRatio = msoTrue”似乎被忽略。结果，图像被扭曲或拉伸。任何帮助都将不胜感激。

这是我目前正在使用的代码，但我尝试了其他一些代码：

Sub ResizePhotos（） Dim pic As InlineShape

For Each pic In ActiveDocument.InlineShapes
    With pic
        .LockAspectRatio = msoTrue
        If .Width > .Height Then ' horizontal
            .Height = InchesToPoints(3.5)
        Else  ' vertical
            .Width = InchesToPoints(5)
        End If
    End With
Next

子目录结束

相关内容