Chart.SaveChartTemplate (Word)

Salva um modelo de gráfico personalizado na lista de modelos de gráficos disponíveis.

Por padrão, este método salva o gráfico ativo no diretório de modelos de gráficos do usuário. Se um UNC ou URL for especificado, o gráfico será salvo no local especificado.

SaveChartTemplate (FileName)

FileName: O nome do modelo de gráfico.

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