每個word文件中有幾百個帶底紋的圖片,
需要將這些圖片格式設置成的亮度為50,對比度為100,這樣能去除底紋。
請問如何批量處理?
還是讓我幫你來出點子吧,怎么前面的都答非所問呢。
新建一個宏,將如下代碼原樣復制粘貼進入后按F5執行即可。
'Sub Macro1()
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 '將嵌入型圖片的亮度設置為50
ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 1#
'將嵌入型圖片的對比度設置為100
Next i
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoPicture Then '假設浮動型對象是圖片時才處理
ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.5
'將浮動型圖片的亮度設置為50
ActiveDocument.Shapes(i).PictureFormat.Contrast = 1#
'將浮動型圖片的對比度設置為100
End If
Next i
Msgbox "處理完畢!"
'End Sub
今后也推薦你使用我開發的《文件批量處理百寶箱V8.0》中的一些批量處理功能。