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

wzs0777

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

运行后图片的颜色，怎么黑色的啊，求如何成为金色及颜色代码库。

Takitooru

wzs0777 发表于 2022-10-5 11:57
还是黑色的

颜色代码就是个，为什么是黑色，你找下原因

附上颜色代码库
https://learn.microsoft.com/en-au/office/vba/api/word.wdcolor

Takitooru

.OutsideColorIndex = wdColorGold

wzs0777

Takitooru 发表于 2022-10-4 21:31
.OutsideColorIndex = wdColorGold

还是黑色的

Takitooru

我再看了一下，似乎是OutsideColorIndex不支持金色

下面是OutsideColorIndex支持颜色的代码
https://learn.microsoft.com/en-a ... i/word.wdcolorindex

wzs0777

Takitooru 发表于 2022-10-5 12:02
我再看了一下，似乎是OutsideColorIndex不支持金色

下面是OutsideColorIndex支持颜色的代码

我用word宏录制突破金边，代码是空的，很奇怪