如我的上一个问题所指出的那样，Outlook以默认尺寸125％x 125％粘贴了来自截图工具的屏幕抓图，而我希望它是100％x 100％。代替实际更改默认设置，我想创建一个宏来调整图像的大小。
我在VBA PowerPoint中做过类似的事情，但是每个应用程序似乎都不同。例如，我尝试了代码
Sub Resize_Outlook4()
With ActiveDocument.InlineShapes(1)
.ScaleHeight = 150
.ScaleWidth = 150
End With
End Sub
遵循MSDN的示例，该示例应将所有内联形状的大小调整为150％x 150％，但这会导致错误“运行时错误'424'：所需对象”。
简而言之，我在指定一个对象时遇到了麻烦，该对象将代表当前选定的图片，或者仅代表电子邮件中的所有图片。有人知道如何正确执行此操作吗？
我认为这应该可行，但我仍然建议您简单地更改默认设置...
Sub Resize150()
Dim objDoc As Object
Dim shp As Object
'Get the word-editor of the mail item
If Application.ActiveInspector Is Nothing Then Exit Sub
Set objDoc = Application.ActiveInspector.WordEditor
For Each shp In objDoc.InlineShapes
If shp.HasPicture Then
shp.ScaleHeight = 150
shp.ScaleWidth = 150
End If
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句