请问如何将Word中所有图片的颜色批量修改为灰度模式？

kqbt

        请问如何将Word中所有图片的颜色批量修改为灰度模式？
        我自己拼了如下代码，但是没有反应。希望大家指点！谢谢！

1. 
   
2. For Each s In ActiveDocument.Shapes
   
3. If s.PictureFormat.ColorType = msoPictureAutomatic Then
   
4. s.ConvertToGrayscale
   
5. End If
   
6. Next s
   

复制代码

kqbt

等待大家给予解答！谢谢！

xydnsxj

用宏，我常常这样搞，还能设置调亮什么的，记住要用shift+F8

c81

Sub aa()
    Dim s As InlineShape
    For Each s In ActiveDocument.InlineShapes
        s.PictureFormat.ColorType = msoPictureGrayscale
    Next s
End Sub

这是嵌入图片的处理，另外条件判断自己加。

kqbt

非常感谢版主！有这个就够了！

chendeyan126

c81 发表于 2009-4-9 13:19
Sub aa()
    Dim s As InlineShape
    For Each s In ActiveDocument.InlineShapes

把图片另存为出来后，图片还是和原来一样，彩色的，在word设置的灰度模式丢失了？

daibao88

word设置的灰度只是显示而已，图片本质没有改变。