ChartFont.Underline (Word)

Devuelve o establece el tipo de subrayado aplicado a la fuente. Posibles valores de retorno son xlUnderlineStyleDouble - Subrayado grueso doble, xlUnderlineStyleDoubleAccounting - Dos subrayados finos muy próximos entre sí, xlUnderlineStyleNone - Sin subrayado, xlUnderlineStyleSingle - Subrayado sencillo, xlUnderlineStyleSingleAccounting - No admitido.

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