Удалить все wordart вставки

[Maks-im]

Всем привет!
Есть несколько книг 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

[Serge 007]

Ответил здесь