返回或设置 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