word图片加边框的颜色不识别Gold

wzs07 · 发表于 2022-10-4 20:38

本帖最后由 wzs07 于 2022-10-4 20:48 编辑

Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdGold
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating =False
End Sub

运行后图片的颜色，怎么黑色的啊，求颜色代码库。

vbee · 发表于 2022-10-7 09:08

颜色代码列表

vbee · 发表于 2022-10-7 09:15

可以用 .OutsideColor = RGB(255, 215, 0)

常用金色RGB值组合

1.R=255，G=215，B=0

2.R=205，G=127，B=50

3.R=166，G=124，B=64

4.R=217，G=217，B=25

常扬帆 · 发表于 2022-10-14 17:07

改RGB后，似乎也只适用于嵌入型图片。

		自动登录	找回密码
密码			免费注册

[讨论] word图片加边框的颜色不识别Gold