☰

在 Outlook 2010 中将相同样式应用于多张图片

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010 pictures
在 Outlook 2010 中将相同样式应用于多张图片

我想选择电子邮件中嵌入的多幅图像，并对所有图像应用相同的图片格式，或者在从剪贴板粘贴图像时应该预先选择图片格式。

如果唯一的解决方案是编写脚本，那么我们将不胜感激（之前没有在 Outlook 中创建过脚本）。

答案1

我采用了宏解决方案，尽管脚本可能不正确（我昨天刚刚阅读了一些有关 VBA 的内容）。我找不到样式常量，因此我添加了我感兴趣的属性（阴影）。

Public Sub AddShadow()
    Dim document As document
    Dim shape As InlineShape

    If Application.ActiveInspector Is Nothing Then
        Exit Sub
    End If
    If Not (TypeOf Application.ActiveInspector.CurrentItem Is MailItem) Then
        Exit Sub
    End If

    Set document = Application.ActiveInspector.CurrentItem.GetInspector.WordEditor
    For Each shape In document.InlineShapes
        With shape
            If .Type = wdInlineShapePicture And .Width > 70 And .Height > 70 Then
                 With .Shadow
                    .Visible = msoTrue
                    .Style = msoShadowStyleOuterShadow
                    .Blur = 30
                    .Transparency = 0.29
                End With
            End If
        End With
        Next
    End
End Sub

相关内容