使用 Word VBA 将图片重新着色为黑白 75%

Question

I have using below, in Word document.

Sub Recolor()

Dim pic As InlineShape
Dim shp As Shape

Set pic = Selection.InlineShapes(1)
Set shp = Selection.ShapeRange(1)

pic.PictureFormat.ColorType = msoPictureBlackAndWhite
shp.PictureFormat.ColorType = msoPictureBlackAndWhite

End Sub

That performs Black and White 50%

But I need Black and White 75% , How can coding 75% Recolor?

Answer 1

The VBA object model doesn't have hooks for all the color transformations that are in Word. The 75% in the Black and White 75% refers to a color transformation parameter called Threshold in the XML. But Threshold is not available in VBA. Here's a macro that achieves a similar look by lowering brightness, increasing contrast and reducing saturation. You can play with the values and the command order, which makes a difference to the final appearance:

Sub Recolor()
    Dim pic As InlineShape

    Set pic = Selection.InlineShapes(1)
    With pic
        With .PictureFormat
            .Brightness = 0.24
            .Contrast = 1
        End With
        With .Fill.PictureEffects
            .Insert(msoEffectSaturation).EffectParameters(1).value = 0
        End With
    End With
End Sub