Я хотел бы выбрать несколько изображений, встроенных в мое электронное письмо, и применить один и тот же формат изображения ко всем из них, или формат изображения должен быть предварительно выбран при вставке изображения из буфера обмена.

Если единственным решением является создание сценария в правильном направлении, будет полезно (ранее сценарии в Outlook не создавались).

1 ответ1

0

Я выбрал решение для макросов, хотя сценарий может быть неправильным (я только что прочитал немного о 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .