得用宏:新建一個宏,將如下程式碼原樣複製貼上進入後按F5執行即可。"Sub Macro1()For i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 "將嵌入型圖片的亮度設定為50ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 1# "將嵌入型圖片的對比度設定為100Next iFor i = 1 To ActiveDocument.Shapes.CountIf ActiveDocument.Shapes(i).Type = msoPicture Then "假設浮動型物件是圖片時才處理ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.5 "將浮動型圖片的亮度設定為50ActiveDocument.Shapes(i).PictureFormat.Contrast = 1# "將浮動型圖片的對比度設定為100End IfNext iMsgbox "處理完畢!""End Sub裡面的引數你要改啊,原文件先備份一下,切記。
得用宏:新建一個宏,將如下程式碼原樣複製貼上進入後按F5執行即可。"Sub Macro1()For i = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.5 "將嵌入型圖片的亮度設定為50ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 1# "將嵌入型圖片的對比度設定為100Next iFor i = 1 To ActiveDocument.Shapes.CountIf ActiveDocument.Shapes(i).Type = msoPicture Then "假設浮動型物件是圖片時才處理ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.5 "將浮動型圖片的亮度設定為50ActiveDocument.Shapes(i).PictureFormat.Contrast = 1# "將浮動型圖片的對比度設定為100End IfNext iMsgbox "處理完畢!""End Sub裡面的引數你要改啊,原文件先備份一下,切記。