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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Maks-im

Дата: Воскресенье, 06.05.2012, 12:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Всем привет!
Есть несколько книг excel 2007 в которых много вставок wordart. Нужно удалить все вставки wordart. Искал как это сделать, нашел решение (vba код) для word'а, а для excel не нашел.
Подскажите, пожалуйста, код для excel.

Вот код для word.

[vba]

Code

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

[/vba]