Chart.SaveChartTemplate (PowerPoint)

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.

Dim strFileName As String: strFileName = "Presentation Chart"
ActivePresentation.Slides(1).Shapes(1).Chart.SaveChartTemplate FileName:=strFileName