给Word嵌入式图片加边框VBA代码

Excel2119

给Word嵌入式图片加边框VBA代码如下：
=====================拷贝以下内容======================

1. Sub 给Word嵌入式图片批量加边框()
   
2. 
   
3.         '在此还是说明一下，这段代码仅仅对Word文档中以“嵌入式”的环绕方式插入的
   
4. 
   
5.         '图片有效，对“非嵌入式”的环绕方式插入的图片无效。
   
6. 
   
7.         '若有疑问，请联系ExcelHome论坛[Excel2119](UID: 1582513)。
   
8. 
   
9.         Application.ScreenUpdating = False
   
10. 
    
11.     For Each oInlineShape In ActiveDocument.InlineShapes
    
12. 
    
13.         With oInlineShape.Borders
    
14. 
    
15. 
    
16.             .OutsideLineStyle = wdLineStyleSingle
    
17. 
    
18.             '这是表示设置的边框线性类型，当你需要选择其他线性时，则将光标定位到
    
19. 
    
20.             '上面的“wdLineStyleSingle”字符中，右击后选择“定义(D)”，在弹出的
    
21. 
    
22.             '对话框中选择自己所需的线性类型即可。
    
23. 
    
24. 
    
25.             .OutsideColorIndex = wdColorAutomatic
    
26. 
    
27.             '这是表示设置的边框线性颜色，当你需要选择其他颜色时，则将光标定位到
    
28. 
    
29.             '上面的“wdColorAutomatic”字符中，右击后选择“定义(D)”，在弹出的
    
30. 
    
31.             '对话框中选择自己所需的线性颜色即可。
    
32. 
    
33. 
    
34.             .OutsideLineWidth = wdLineWidth050pt
    
35. 
    
36.             '这是表示设置的边框线性宽度，当你需要选择其他宽度时，则将光标定位到
    
37. 
    
38.             '上面的“wdColorAutomatic”字符中，右击后选择“定义(D)”，在弹出的
    
39. 
    
40.             '对话框中选择自己所需的线性宽度即可。
    
41. 
    
42.             '（此处为50pt，即0.5磅。若设置为3磅，则该值为300pt）。
    
43. 
    
44. 
    
45.         End With
    
46. 
    
47.     Next
    
48. 
    
49.         Application.ScreenUpdating = True
    
50. 
    
51. End Sub

复制代码

=====================拷贝以上内容======================

yxzc2012

66666666666666666感谢分享

xinhairen999

感谢分享，下载收藏了。

tangqingfu

谢谢楼主分享

cuanju

谢谢大神分享

jaisongy

这个代码能不能改成选择多个文件批量修改呢？这样就能节省很多步骤！

xdwy81129

老师，请帮忙上个附件吧