ChartFont.Underline (Word)

Cette propriété renvoie ou définit le type de soulignement appliqué à la police. Les valeurs de retour possibles sont xlUnderlineStyleDouble - Double souligné épais, xlUnderlineStyleDoubleAccounting - Deux soulignés fins placés côte à côte, xlUnderlineStyleNone - Aucun soulignement, xlUnderlineStyleSingle - Soulignement simple, xlUnderlineStyleSingleAccounting - Non prise en charge.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.ChartTitle.Font.Underline = xlUnderlineStyleSingle 
 End If 
End With