method for Range and Selection objects.
expression.CopyAsPicture
expression Required. An expression that returns a Range or Selection object.
Example
This example copies the contents of the active document as a picture and pastes it as a picture at the end of the document.
Sub CopyPasteAsPicture()
ActiveDocument.Content.Select
With Selection
.CopyAsPicture
.Collapse Direction:=wdCollapseEnd
.PasteSpecial DataType:=wdPasteMetafilePicture
End With
End Sub