CopyAsPicture 方法

对于 Range 和 Selection 对象，CopyAsPicture 方法与 Copy 方法工作方式相同。

expression   必需。该表达式返回一个 Range 或 Selection 对象。

示例

该示例将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。

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