alinkColor 属性

返回或设置 Variant 类型的值，代表用于显示活动链接的字体颜色。可读写。

expression  必选。返回“应用于”列表中的对象之一的表达式。

示例

下列示例将活动链接的颜色设为黑色。现在文档中的活动链接将会显示为黑色。

Sub SetAlink()
'Sets the color of the active link

    Dim objDoc As DispFPHTMLDocument

    Set objDoc = FrontPage.ActiveDocument
    'Set color of active link to black
    objDoc.alinkColor = "000000"

End Sub