如何用代码把word内插图片变成白色，用来节约打印油墨

zzpsx

如何用代码把word内插图片变成白色？

有时候，word中图文混排，图片较多，这样的稿件，打印出来很耗费油墨。
如何用代码，把word中所有内插的图片变成白色。
我目前是手动一张一张右键设置图片格式，把亮度设置为百分之一百，这样也可以。

希望能用代码实现，一键全部图片变白色，再一键全部还原原来色彩。

tianying

Sub picSet()
    Dim i As Integer
    For i = 1 To ActiveDocument.InlineShapes.Count
        With ActiveDocument.InlineShapes(i)
            .PictureFormat.Brightness = 1
        End With
    Next
End Sub


Sub picRest()
    Dim i As Integer
    For i = 1 To ActiveDocument.InlineShapes.Count
        With ActiveDocument.InlineShapes(i)
            .Reset
        End With
    Next
End Sub

zzpsx

tianying 发表于 2023-2-20 16:42
Sub picSet()
    Dim i As Integer
    For i = 1 To ActiveDocument.InlineShapes.Count

问题解决，谢谢高手。