ChartTitle.Name (Word)

Devuelve el nombre del objeto.

Dim strName As String
strName = ActiveDocument.Background.Chart.ChartTitle.Name