☰

宏可锐化 Word 文档中的所有图像

tag-icon • tag-icon microsoft-word microsoft-word-2010 macros
宏可锐化 Word 文档中的所有图像

我有一份 500 多页的文档，其中包含大量图片。我需要将所有这些图片转换为灰度，并将清晰度提高 40%。这两项任务都可以通过右键单击每个图片并选择 来完成'format picture'。但是，由于图片太多，我希望使用宏。我使用的是 Word 2010。

我可以将所有图像转换为灰度。但是我无法锐化它们，因为我不知道所需的命令/关键字。宏录制器不会记录您在对话框中执行的任何操作，'format picture'因此它毫无帮助。你们有人知道命令吗？

这是我迄今为止将所有图像转换为灰度的工作代码。

Sub Macro1()

'
' Macro1 Macro
'
'

Dim Pic As InlineShape

For Each Pic In ActiveDocument.InlineShapes

    Pic.PictureFormat.ColorType = msoPictureGrayscale

Next

End Sub

答案1

嗯，这很难找到任何文档，但是，经过反复试验和花费大量时间，我们终于找到了。

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

在上述情况下，它将使图像模糊 50%（注意，它是一个负数 (-0.5)）。将其设为正数可使其更清晰。

相关内容