ChartFont.Underline (Word)

Retorna ou define o tipo de sublinhado aplicado à fonte. Pode ser uma das seguintes constantes XlUnderlineStyle. de leitura/gravação. Os valores de retorno possíveis são xlUnderlineStyleDouble - Sublinhado grosso duplo, xlUnderlineStyleDoubleAccounting - Dois sublinhados finos colocados próximos, xlUnderlineStyleNone - Sem sublinhado, xlUnderlineStyleSingle - Sublinhado simples, xlUnderlineStyleSingleAccounting - Não suportado.

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