Range.CopyAsPicture (Word)

Die CopyAsPicture-Methode funktioniert wie die Copy-Methode.

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