CopyAsPicture Method

The CopyAsPicture method works the same way as the Copy method for Range and Selection objects.

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