Aplique o mesmo estilo a várias imagens no Outlook 2010

0

Eu gostaria de selecionar várias imagens incorporadas em meu e-mail e aplicar o mesmo formato de imagem a todas elas ou o formato da imagem deve ser pré-selecionado ao colar a imagem da área de transferência.

Se a única solução é roteirizar um ponto na direção certa, seria bem-vinda (não criamos scripts no Outlook antes).

    
por tehnicaorg 27.03.2014 / 10:01

1 resposta

0

Eu fui com uma solução Macro, embora o script possa não estar correto (Acabei de ler um pouco sobre o VBA ontem). Não consegui encontrar um estilo constante, então adicionei as propriedades que me interessavam (uma sombra).

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
    
por 28.03.2014 / 09:43