In diesem Beispiel wird ein Microsoft Word-Dokumentobjekt aus der Zwischenablage in Zelle D1 in Sheet1 eingefügt.
Worksheets("Sheet1").Range("D1").Select
ActiveSheet.PasteSpecial format:= _
"Microsoft Word 8.0 Document Object"
Im folgenden Beispiel wird dasselbe Microsoft Word-Dokumentobjekt eingefügt und als Symbol angezeigt.
Worksheets("Sheet1").Range("F5").Select
ActiveSheet.PasteSpecial _
Format:="Microsoft Word 8.0 Document Object", _
DisplayAsIcon:=True