日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當(dāng)前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

office word中利用宏编程批量调节图片的亮度和对比度

發(fā)布時(shí)間:2024/10/14 编程问答 38 豆豆
生活随笔 收集整理的這篇文章主要介紹了 office word中利用宏编程批量调节图片的亮度和对比度 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
Sub '調(diào)節(jié)亮度和對比度()' 調(diào)節(jié)亮度和對比度 宏For i = 1 To ActiveDocument.InlineShapes.Count'0~1對應(yīng)-100%~100%范圍ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.275 '將嵌入型圖片的亮度設(shè)置為-45%ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 0.825 '將嵌入型圖片的對比度設(shè)置為65%Next iFor i = 1 To ActiveDocument.Shapes.CountIf ActiveDocument.Shapes(i).Type = msoPicture Then '假設(shè)浮動(dòng)型對象是圖片時(shí)才處理ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.275 '將浮動(dòng)型圖片的亮度設(shè)置為-40%ActiveDocument.Shapes(i).PictureFormat.Contrast = 0.825 '將浮動(dòng)型圖片的對比度設(shè)置為65%End IfNext iMsgBox "處理完畢!" End Sub

步驟:在word中新建一個(gè)宏,然后復(fù)制上述代碼到里面,點(diǎn)擊運(yùn)行后提示“處理完成”,然后保存宏以后用

?

總結(jié)

以上是生活随笔為你收集整理的office word中利用宏编程批量调节图片的亮度和对比度的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò),歡迎將生活随笔推薦給好友。