Esta propriedade especifica o valor da propriedade a ser assumido quando a fonte estiver no intervalo especificado na Linha. Exemplo:

Sub CommandButton1_Click()
  Dim Cor
  ' Escolhe uma cor
  Application.ShowPickColor Cor, 0, 100, 100
  Screen.Item("Retangulo1").Links.Item("ForegroundColor")._
    Item(1).Value = Cor
End Sub