请教如何用VBA怎么调整图片的亮度？

1042271867

我文件里一VBA是网上找到的,但我想达到的是：点击按钮，出现对话框，自己输入亮度数字，点击完成。谢谢各位老师！

413191246se

楼主：我编了一个小宏，调节亮度，只调节嵌入式图片亮度，但请你打开Word后，录制一个宏，找到这个宏，这时宏就存在了空白通用模板 Normal.dot 中，你再把我这个宏放到它下面即可。使用时按 Alt+F8找到它，或设置为热键F4或F6均可（亮度范围 0.1-1，按《是》加大亮度，按《否》减小亮度，《取消》结束）：

1. Sub pic_brightness()
   
2.     Dim i As InlineShape, j&, k&
   
3.     j = 5
   
4.     For Each i In ActiveDocument.InlineShapes
   
5.         i.PictureFormat.Brightness = j / 10
   
6.     Next
   
7.     Do
   
8.         k = MsgBox("当前亮度 = " & j / 10 & "，是否继续？", vbYesNoCancel + vbExclamation, "亮度调节 - <是>增大亮度，<否>减小亮度")
   
9.         If k = vbYes Then
   
10.             j = j + 1
    
11.         ElseIf k = vbNo Then
    
12.             j = j - 1
    
13.         Else
    
14.             End
    
15.         End If
    
16.         If j = 11 Or j = 0 Then End
    
17.         For Each i In ActiveDocument.InlineShapes
    
18.             i.PictureFormat.Brightness = j / 10
    
19.         Next
    
20.     Loop
    
21. End Sub

复制代码