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

wzs0777

word图片加边框的颜色不识别Gold - 『悬赏问答区』 - 吾爱破解 - LCG - LSG |安卓破解|病毒分析|[url]www.52pojie.cn[/url]
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

wdColorGold 是 wdColor的金色枚举值

unmask

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

Takitooru

代码

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

学习了，非常不错

Wapj_Wolf

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

jhcybb

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

ww5270616

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

seawaycao

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