Я пишу этот макрос, чтобы преобразовать все фигуры в документе в изображение:

Sub AllShapeToPic()    
   For Each oShp In ActiveDocument.Shapes
    oShp.Select
    Selection.Cut
    Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
   Next oShp

End Sub

Но когда я запускаю его, ни одна из фигур не преобразуется в изображение.
Что не так в моем коде макроса?