Outlook从附件vba excelembedded时调整图像大小

我有一些附加和隐藏图像到Outlook邮件的代码，以便他们可以embedded，并在最后插入用户签名。

有两个问题：

• 如果Outlook过大，Outlook的视图会变得非常糟糕，那么Outlook会调整它的大小。

如果我手动更正此设置的宽度和高度在100％缩放解锁纵横比图像显示确定，但它的签名削减。 通过将图像包装在文本前纠正此问题会在图像后面留下签名，使其不显示。

有什么方法可以纠正这个问题吗？

这是我的代码（我从其他职位采取）：

Sub Mail() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim myFileList(1) As String Dim i As Integer Dim wb As Workbook Set wb = ThisWorkbook Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Call CrearImagen myFileList(0) = wb.Path & "\ImagenesMail\Imagen0.jpg" myFileList(1) = wb.Path & "\ImagenesMail\Imagen1.jpg" strbody = "Hola" On Error Resume Next With OutMail .display .To = "" .CC = "" .BCC = "" .Subject = "Como quedaría el mail" For i = 0 To UBound(myFileList) .Attachments.Add myFileList(i) Next i 'width=width height=heigth 'width=width height=heigth .HTMLBody = "<br>" & strbody & "<br><br>" _ & "<img src='cid:Imagen0.jpg'><br><br>" _ & "<img src='cid:Imagen1.jpg'><br><br>" _ & "<br>Prueba<br>prueba</font></span>" & .HTMLBody .display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub 

这是默认情况下的样子：

默认粘贴

这是在高度和宽度上调整100％缩放比例之后的样子：

resize后

正如你所看到的，它performance出我想要的，但不是整个图像。 如果我将图像包装在文本前面，那么我已经得到了所需的邮件，但签名却隐藏在图像后面。

我把图片resize来自我所评论的代码，它使用的是数字，而不是百分比。

PS：抱歉我的英文不好，不是英文的。