代码之家 › 专栏 › 技术社区 › Kevin

单词vba shape forecolor wdthemecolorccent2在菜单中显示为themecolor 1

shapes themes ms-word vba

Kevin · 技术社区 · 6 年前

我在Word(Office365)中编写了一些宏代码,将形状轮廓的颜色设置为主题颜色之一。对形状执行此操作的代码如下所示:

shape.line.foreColor.ObjectThemeColor = wdThemeColorAccent2

通过将“wdxx”颜色指定给 ObjectThemeColor 字段中,当文档颜色主题更改时,形状周围线条的颜色将自动更改。

我的问题(或第一个奇怪之处)是,当我使用上面的代码指定accent2,然后执行以下操作:选择形状、菜单、格式、形状轮廓,并将鼠标悬停在带有红色轮廓(标记活动线条颜色)的颜色框上时,工具提示会说“青绿色,强调文字颜色1”而不是“强调文字颜色2”。

我本以为 wdThemeColorAccent2 要调用的颜色 Accent 2 在工具提示中,但不是。

第二个问题是,显然我没有办法用宏代码指定菜单中显示的最后一种颜色。由于偏移(代码中的重音2=菜单中的重音1),我需要使用 wdThemeColorAccent7 在代码中指定菜单中显示的最后一种颜色(在工具提示中标记为强调文字颜色6)。

我想知道这是不是一个字里行间的错误(在我看来确实是这样),还是我做错了什么。为了重现这种情况,我创建了一个简单的空矩形,选中它,然后运行上面的代码行来更改形状的轮廓颜色。这里有一个小的子程序来说明这个问题(在运行子程序之前选择您的形状)。

Sub TestAccent()
Dim shp As Shape
Set shp = selection.ShapeRange(1)
shp.line.foreColor.ObjectThemeColor = wdThemeColorAccent4
shp.line.Weight = 0.5
shp.line.Visible = True
End Sub

1 回复 | 直到 6 年前

Cindy Meister 6 年前


   wdThemeColorAccent

wdThemeColorAccent4 wdThemeColorAccent6

this article

Public Enum ColorSchemeAccents
    Accent1 = 3
    Accent2 = 4
    Accent3 = 5
    Accent4 = 6
    Accent5 = 7
    Accent6 = 8
    Accent7 = 9
    Accent8 = 10
End Enum

Sub TestAccent()
    Dim shp As Shape
    Set shp = Selection.ShapeRange(1)
    shp.Line.ForeColor.ObjectThemeColor = ColorSchemeAccents.Accent8
    shp.Fill.ForeColor = RGB(250, 250, 250)
    shp.Line.Weight = 2
    shp.Line.Visible = True
End Sub

推荐文章

Tim Dol · Word VSO获取Office URI方案设置的默认存储位置

3 年前

Jonathan L · Mailmerge-单个PDF-前2行不是标题

3 年前

Saxman · 在允许VBA的同时限制Word文档

7 年前

Shabaz · 在Word文档中的(单引号/双引号)之间搜索文本

7 年前

dieKoderin · 使用vba编辑Microsoft Word标题中的定位点位置

7 年前

SlowLearner · MS Word是否具有与ExecuteExcel4Macro等效的

7 年前

Ratilius · Excel Vba to Word:如何将页码写入文本框?

7 年前

plaene · 在VBA中搜索特定的Word文档选择

7 年前

Walid Abdelal · 预格式化字符串的在线插入

7 年前

simplify · 从WORD表格VBA获取公式值

7 年前