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.
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