通过

Application.ColorSchemes 属性 (Publisher)

  • 项目

返回一个 ColorSchemes 集合，该集合代表可用的配色方案。

语法

表达式。ColorSchemes

expression：表示 Application 对象的变量。

返回值

ColorSchemes

示例

下面的示例 ColorSchemes 集合中循环，并显示每个方案中的每种配色方案的名称，后面是超链接的颜色的 RGB 值。

Dim cscLoop As ColorScheme 
Dim cscAll As ColorSchemes 
 
Set cscAll = Application.ColorSchemes 
 
For Each cscLoop In cscAll 
 With cscLoop 
 Debug.Print "Color scheme: " & .Name _ 
 & " / Followed hyperlink color: " _ 
 & .Colors(ColorIndex:=pbSchemeColorFollowedHyperlink).RGB 
 End With 
Next cscLoop

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。