Chart.Paste (Word)

Fügt Diagrammdaten aus der Zwischenablage in das Diagramm ein.

Paste (Type)

Type: Gibt die Diagramminformationen an, die eingefügt werden, wenn sich ein Diagramm in der Zwischenablage befindet.

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