>>487
For Each work in Shapes
 If work.type = 消したいオブジェクトタイプ Then 消す
Next