Selection.CopyAsPicture (Word)

La méthode CopyAsPicture fonctionne de la même façon que la méthode Copy.

Sub CopyPasteAsPicture() 
 ActiveDocument.Content.Select 
 With Selection 
 .CopyAsPicture 
 .Collapse Direction:=wdCollapseEnd 
 .PasteSpecial DataType:=wdPasteMetafilePicture 
 End With 
End Sub