Paste chart as a link to Word

[Jaymond Flurrie]

I'm having problems pasting a chart to Word:

With appWD.Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeText Text:="A part of header"
        .ParagraphFormat.Alignment = wdAlignParagraphLeft
        .TypeText Text:=vbTab & vbTab & "Six digits"

        DocWD.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
        strChartName = "A. My first title"
        shtCharts.Shapes(strChartName).Copy
        .TypeText Text:=vbTab & vbTab & vbTab & vbTab & strChartName & vbCrLf
        .Font.Bold = wdToggle
        .PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=wdPageBreak
        
        strChartName = "B. My second title"
        shtCharts.Shapes(strChartName).Copy
        .TypeText Text:=vbTab & vbTab & vbTab & vbTab & strChartName & vbCrLf
        .Font.Bold = wdToggle
        .PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=wdPageBreak
End With

First paste works perfectly, but second one gives me Run-time error '5342': The specified datatype is unavailable. What's wrong and how to correct it?

edit. I'm using Office 2010 and that second one works if I change that Link:=True to Link:=False

 

[Jaymond Flurrie]

Just to be clear, the idea is to have it as link, so even if it works with changing that Link:=True to Link:=False, that's not good enough (or if that's the only way it can be done, which I doubt, then I need to program much bigger chunk of code again)