Excel 如何使用VBA在Outlook邮件正文中裁剪选定的图片

我需要VBA代码在outlook邮件正文中裁剪图片

---

有没有人有代码请与我分享

在谷歌上搜索5分钟后，我找到了以下链接

总结一下，这应该对您有所帮助（未经测试）：

此宏将当前打开的邮件中的所有图片（包括签名中的图片（如果有））的大小调整为其高度和宽度的75%

按照以下说明将代码添加到Outlook

启动Outlook

按ALT+F11打开Visual Basic编辑器

如果尚未展开，请展开Microsoft Office Outlook对象

如果尚未展开，请展开模块

双击现有模块（如模块1），选择该模块；右键单击模块并选择插入>模块，创建新模块

从“代码段”框复制代码，并将其粘贴到Outlook的“VB编辑器”窗口的右侧窗格中

单击工具栏上的软盘图标保存更改

关闭VB编辑器

下面是如何向QAT添加一个按钮，以便通过单击来运行宏。 展望2010年

Sub ResizeAllPicsTo75Pct()
    Const wdInlineShapePicture = 3
    Dim olkMsg As Outlook.MailItem, wrdDoc As Object, wrdShp As Object
    Set olkMsg = Application.ActiveInspector.CurrentItem
    Set wrdDoc = olkMsg.GetInspector.WordEditor
    For Each wrdShp In wrdDoc.InlineShapes
        If wrdShp.Type = wdInlineShapePicture Then
            wrdShp.ScaleHeight = 75
            wrdShp.ScaleWidth = 75
        End If
    Next
    Set olkMsg = Nothing
    Set wrdDoc = Nothing
    Set wrdShp = Nothing
End Sub