Chart.SaveChartTemplate (Word)

Saves a custom chart template to the list of available chart templates.

By default, this method saves the active chart to the user's chart template directory. If a UNC or URL is specified, the chart will be saved to the specified location instead.

SaveChartTemplate (FileName)

FileName: The name of the chart template.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SaveChartTemplate _ 
 FileName:="Presentation Chart" 
 End If 
End With