vlinkColor 属性

       

返回或设置 Variant 类型的值,该值指定当前文档中所有已访问的链接的颜色。可读写。

expression.vlinkColor

expression  必选。返回 DispFPHTMLDocument 对象的表达式。

说明

值可以指定为十六进制数或枚举常数。

示例

下列示例将当前文档中所有已访问链接的颜色设置为蓝色。vlinkColor 属性设置为“3300FF”,这是代表蓝色的十六进制值。


Sub ChangeLinkColor()
'Changes the color of visited links in the current document

    Dim objApp As FrontPage.Application
    Set objApp = FrontPage.Application
    'Set color of visited links to blue.
    objApp.ActiveDocument.vlinkColor = "3300FF"

End Sub