Всем привет!  
Есть несколько книг excel 2007 в которых много вставок wordart. Нужно удалить все вставки wordart. Искал как это сделать, нашел решение (vba код) для word'а, а для excel не нашел.    
Подскажите, пожалуйста, код для excel.    
 
Вот код для word.  
 
Sub d_4()  
Dim oShape As Word.Shape  
Dim oInlineShape As Word.InlineShape  
For Each oShape In ActiveDocument.Shapes  
   If oShape.Type = msoTextEffect Then  
       oShape.Delete  
   End If  
Next oShape  
For Each oInlineShape In ActiveDocument.InlineShapes  
   On Error Resume Next  
   oInlineShape.TextEffect.Text = ""  
   If Err.Number = 0 Then  
       oInlineShape.Delete  
   'Первый номер ошибки для Word 2003, а второй - для Word 2010.  
   ElseIf Err.Number <> 4680 And Err.Number <> -2147024809 Then  
       MsgBox "Непредвиденная ошибка. Работа кода остановлена." & _  
           "Обратитесь к тому, кто написал этот код", vbCritical  
       Exit Sub  
   End If  
   On Error GoTo 0  
   Err.Number = 0  
Next oInlineShape  
End Sub