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