Range.PasteAndFormat (Word)

Pastes the selected table cells and formats them as specified.

PasteAndFormat (Type)

Type: The type of formatting to use when pasting the selected table cells.

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