PasteSpecial Method (Worksheet Object) Example

This example pastes a Microsoft Word document object from the Clipboard to cell D1 on Sheet1.

Worksheets("Sheet1").Range("D1").Select
ActiveSheet.PasteSpecial format:= _
    "Microsoft Word 8.0 Document Object"

This example pastes the same Microsoft Word document object and displays it as an icon.

Worksheets("Sheet1").Range("F5").Select
ActiveSheet.PasteSpecial _
        Format:="Microsoft Word 8.0 Document Object", _
        DisplayAsIcon:=True