Macro para aguçar todas as imagens no documento do word

Question

Eu tenho mais de 500 documentos de página com muitas imagens. Eu preciso converter todos estes para tons de cinza e aumentar a nitidez em 40%. Ambas as tarefas podem ser feitas clicando com o botão direito do mouse em cada imagem e escolhendo 'format picture' . No entanto, porque há tantas imagens que desejo usar uma macro. Estou usando o Word 2010.

Consigo converter todas as imagens em tons de cinza. No entanto, não sou capaz de aprimorá-los, pois não conheço o comando / palavra-chave necessário. O gravador de macros não grava nada que você fizer na caixa de diálogo 'format picture' , por isso não é de nenhuma ajuda. Algum de vocês conhece o comando?

Aqui está o meu código de trabalho, até agora, que converte todas as imagens em tons de cinza.

Sub Macro1()

'
' Macro1 Macro
'
'

Dim Pic As InlineShape

For Each Pic In ActiveDocument.InlineShapes

    Pic.PictureFormat.ColorType = msoPictureGrayscale

Next

End Sub

    

Answer 1

Bem, foi muito difícil encontrar qualquer documentação, mas tentativa e erro e muito tempo, e nós temos isso.

Private Sub MakeItSharper()
Dim Pic As InlineShape    

For Each Pic In ActiveDocument.InlineShapes
With Pic.Fill.PictureEffects
    Dim eff As PictureEffect
    Set eff = .Insert(msoEffectSharpenSoften)
    eff.EffectParameters(1).Value = -0.5
End With
Next    

End Sub

No caso acima, ele ficará borrado em 50% (note que é um número negativo (-0,5)). Torne positivo para torná-lo mais nítido.