alinkColor Property

       

Returns or sets a Variant that represents the font color used to display the active link. Read/write.

expression.alinkColor

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example sets the active link color to black. The active link will now appear black in the document.

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