CopyAsPicture Method

Microsoft Word Visual Basic

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