Range.PasteAndFormat (Word)

Pega las celdas de tabla seleccionadas y les aplica el formato especificado.

PasteAndFormat (Type)

Type: Tipo de formato que va a utilizarse al pegar las celdas de tabla seleccionadas.

Sub PasteChart() 
 Selection.PasteAndFormat Type:=wdChartPicture 
End Sub