Программное удаление фигур

Dim objShape As Shape
For Each objShape In ThisWorkbook.Sheets(1).Shapes
    If objShape.Type = 9 Then objShape.Delete
Next objShape

Option Explicit
Option Base 0 ' что это!
' Отключить срабатывание события lstObj_Change
Dim refreshList As Boolean
Private Sub btnRemove_Click() ' Удаление выбранных фигур из списка
 Dim i As Integer
With lstObj ' В цикле удаляем из документа
  i = 0
   Do While ((i <> .ListCount) And (.ListCount <> 0))
    If .Selected(i) Then    ' Проверить выделенные фигуры
     ActiveDocument.Shapes(.List(i)).Delete     ' Удалить фигуру
     .RemoveItem i     ' Удалить из списка
    Else
     i = i + 1     ' Счетчик фигур
    End If
   Loop
  btnRemove.Enabled = .ListCount <> 0  ' Статус кнопки
 
 End With
End Sub
 
Private Sub lstObj_Change()
 Dim obj As ShapeRange, nameObj()
 Dim i As Integer, j As Integer
' Проверить есть ли в списке фигуры
 If (lstObj.ListCount = 0) Or refreshList Then Exit Sub   ' Счетчик выделенных фигур
 j = 0  
For i = 0 To lstObj.ListCount - 1' В цикле создаем массив фигур которые надо выделить
  If lstObj.Selected(i) Then
   ReDim Preserve nameObj(j)
   nameObj(j) = lstObj.List(i)
   j = j + 1
  End If
 Next
btnRemove.Enabled = j <> 0' Установить статус кнопки
If j = 0 Then Exit Sub ' Проверить массив выбранных элементов
Set obj = ActiveDocument.Shapes.Range(nameObj) ' Создать объект с набором фигур
obj.Select   ' Выделить фигуры для создания объекта Selection
Selection.GoTo What:=wdGoToObject   ' Используя Selection перейти к последней выделенной фигуре
obj.Select ' Выделить еще раз, т.к. после перехода фигур сбрасываются маркеры выделения
Application.ScreenRefresh ' Обновить экран, чтобы увидеть выделение
End Sub
Private Sub UserForm_Activate()
 Dim obj As Shape, tmp As Shape, findSelect As Boolean
lstObj.Clear ' Очистить список от предыдущих вызовов
 findSelect = False
 refreshList = True    ' Заполнить список всеми фигурами документа
 For Each obj In ActiveDocument.Shapes
  lstObj.AddItem obj.name      ' Выделить в списке те фигуры, которые выделены в документе ????      ' Проверить есть ли выделенные фигуры
   If Selection.ShapeRange.Count <> 0 Then      ' В цикле перебираем фигуры и сравниваем с добавленной в список
    For Each tmp In Selection.ShapeRange
     If tmp.name = obj.name Then
      lstObj.Selected(lstObj.ListCount - 1) = True
       lstObj.ListIndex = lstObj.ListCount - 1
      findSelect = True
      Exit For
     End If
    Next
   End If
 Next      ' Установить кнопку удаления
 btnRemove.Enabled = findSelect
 refreshList = False
End Sub