Chart.ChartTitle (Word)

Retorna o título do gráfico especificado. ChartTitle somente leitura.

O objeto ChartTitle não existe e não pode ser usado a menos que a propriedade HasTitle do gráfico seja True.

With ActiveDocument.InlineShapes(1).Chart 
 .HasTitle = True 
 .ChartTitle.Text = "First Quarter Sales" 
End With