You could create a text object and make it look similar to the title, but you cannot export the title without macros.
Sub ExcelExpwCaption
'Set the path where the excel will be saved
filePath = "E:\TestBB.xls"
'Create the Excel spreadsheet
Set excelFile = CreateObject("Excel.Application")
excelFile.Visible = true
'Create the WorkBook
Set WorkBook = excelFile.WorkBooks.Add
'Create the Sheet
Set Sheet = WorkBook.WorkSheets(1)
'Get the chart we want to export
Set tableToExport = ActiveDocument.GetSheetObject("LB02")
Set chartProperties = tableToExport.GetProperties
tableToExport.CopyTableToClipboard true
'Get the caption
chartCaption = tableToExport.GetCaption.Name.v
'MsgBox chartCaption
'Set the first cell with the caption
Sheet.Range("A1") = chartCaption
'Paste the rest of the chart
Sheet.Paste Sheet.Range("A2")
excelFile.Visible = true
'Save the file and quit excel
WorkBook.SaveAs filePath
WorkBook.Close
excelFile.Quit
'Cleanup
Set WorkBook = nothing
Set excelFile = nothing
End Sub
