Chart.Paste (Word)

Colle les données de graphique provenant du Presse-papiers dans le graphique.

Paste (Type)

Type: Spécifie les données de graphique à coller si le Presse-papiers contient un graphique.

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