Range.PasteAndFormat (Word)

Cola as células selecionadas da tabela e as formata como especificado.

PasteAndFormat (Type)

Type: O tipo de formatação a ser usado ao colar as células da tabela selecionadas.

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