批次修改Word文件裡的大量圖片為 灰度顏色 怎麼修改 跪求幫忙.
- 2022-03-25
用宏可以很快解決。同時按Alt和F11進入宏介面,點選單的插入,模組,貼上如下程式碼:
Sub xx()
Dim i As Integer
For i = 1 To ActiveDocument。InlineShapes。Count
If ActiveDocument。InlineShapes(i)。Type = 3 Then
ActiveDocument。InlineShapes(i)。PictureFormat。ColorType = msoPictureGrayscale
End If
Next
End Sub
在此介面直接按F5執行此宏,完成。
原來是彩色的嗎?