Chart.Paste (Word)

Pastes chart data from the Clipboard into the chart.

Paste (Type)

Type: Specifies the chart information to paste if a chart is on the Clipboard. Can be one of the following values:

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.ChartData.Activate 
 .Chart.ChartData.Workbook. _ 
 Worksheets("Sheet1").Range("B1:B5").Copy 
 .Chart.Paste 
 End If 
End With