word vba批量/选中的图片增加边框

wzs0777 发表于 2022-10-6 21:26

word图片加边框的颜色不识别Gold - 『悬赏问答区』 - 吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn
Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColor = wdColorGold
.OutsideLineWidth = wdLineWidth150pt
End With
Next
Application.ScreenUpdating = False
End Sub
求助后，发现这样可以实现金色的@Takitooru
请问，如何实现选中的图片增加边框，谢谢@Takitooru

wss0823 发表于 2022-10-6 22:29

wdColorGold 是 wdColor的金色枚举值

unmask 发表于 2022-10-6 23:30

Selection.ShapeRange应该是所有选中的图形的集合。
For Each oInlineShape In Selection.ShapeRange
...

Takitooru 发表于 2022-10-7 02:11

代码
```
Sub 边框()
'
' 选中图片边框宏
'
'
Dim oInlineShape As InlineShape

For Each oInlineShape In Selection.InlineShapes

         oInlineShape.Borders.OutsideLineStyle = wdLineStyleSingle
         oInlineShape.Borders.OutsideColor = wdColorGold
         oInlineShape.Borders.OutsideLineWidth = wdLineWidth050pt

Next oInlineShape

End Sub
```

elong5410 发表于 2022-10-7 06:33

学习了，非常不错

Wapj_Wolf 发表于 2022-10-7 08:21

进来学习下，向大家致敬。

jhcybb 发表于 2022-10-7 08:40

进来学习下，向大家致敬。

ww5270616 发表于 2022-10-7 12:06

实验了，但是用word操作是正常的，显示也正常，保存后wps打开没有金边呢，再回word打开还是有金边的啊，纳闷了

seawaycao 发表于 2022-10-7 12:06

进来学习下，向大家致敬。

tl;dr 发表于 2022-10-7 14:10

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

word vba批量/选中的图片增加边框