The CopyAsPicture method works the same way as the Copy method.
expression .CopyAsPicture
expression Required. A variable that represents a Range object.
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() With ActiveDocument.Range .CopyAsPicture .Collapse Direction:=wdCollapseEnd .PasteSpecial DataType:=wdPasteMetafilePicture End With End Sub