Chart.SetDefaultChart (Word)

Especifica el nombre de la plantilla del gráfico que usa Microsoft Word para crear nuevos gráficos.

SetDefaultChart (Name)

Name: Especifica el nombre de la plantilla de gráfico predeterminada que Word utiliza para crear nuevos gráficos.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SetDefaultChart Name:="Monthly Sales" 
 End If 
End With