使用 VBA 代码修改 Outlook 2013 中的图像宽度

Question

我需要使用截图工具截取几张截图，然后将其复制并粘贴到我的 Outlook 电子邮件模板中。

在我将图片粘贴到电子邮件模板后，我希望通过单击按钮将图片更改为 9 厘米（255 ps）的宽度。按钮后面的代码将在当前打开的项目上运行。

也就是说，代码必须遍历当前打开的项目并识别图像对象，并运行代码来更改图像的宽度（打开纵横比）。

我已经完成了如下所示的一些编码，但我无法让它运行。谁能帮我解决这个问题？

附言我进行了搜索，发现 ShapeRange 仅适用于 Word、Powerpoint、Excel、Project 等。

Option Explicit

Sub ChangeWidth()

Dim objApp As Outlook.Application
Dim objItem As Outlook.MailItem
Dim OrigShape As ShapeRange
Dim image As Object

Set objApp = Application
Set objItem = objApp.ActiveInspector.CurrentItem

objItem.ShapeRange.LockAspectRatio = msoTrue
objItem.ShapeRange.Width = 255.1181103

End Sub

Answer 1

你需要使用InlineShapes：

Option Explicit

Sub ChangeWidth()

Dim objApp As Outlook.Application
Dim objItem As Outlook.MailItem
Dim iShape As InlineShape
Dim image As Object

Set objApp = Application
Set objItem = objApp.ActiveInspector.CurrentItem

For Each shp In objItem.InlineShapes
    If shp.HasPicture Then
        shp.LockAspectRatio = msoTrue
        'shp.ScaleHeight = 150
        'shp.ScaleWidth = 150
        'or
        shp.Width = 255.1181103
    End If
Next

End Sub