A+ A A-

Удаление всех объектов на листе в Excel

При копировании на рабочий лист Excel информации со страницы из сети Интренет периодически помимо текста вставляются ненужные картинки и различные элементы управления (кнопки, флажки и т.д.). Если их количество значительное, то удалять "вручную" окажется трудоемким процессом.

Имеется несколько способов решить данную проблему: средствами программы Excel и с помощью макроса VBA.

Удаление картинок и объектов в Excel средствами программы

В результате вставки данных со страницы Интернет-сайта скопировались ненужные картинки и элементы управления:

Чтобы удалить ненужные объекты, сначала необходимо выделить эти элементы, для этого перейдите в меню "Главная" -> "Редактирование" -> "Найти и выделить"-> "Выделение группы ячеек" (можно также кликнуть клавишу F5, а затем нажать кнопку "Выделить...").

 

В открывшемся окне необходимо выбрать пункт "Объекты" и кликнуть "OK":

В результате Excel выделит все требуемые объекты (если необходимо какие то элементы оставить, то необходимо зажать клавишу Ctrl и левой кнопкой мыши кликнуть на необходимые элементы, для снятия выделения):

Теперь осталось только нажать клавишу Delete, чтобы удалить все выделенные объекты.

Удаление картинок и объектов в Excel с помощью макроса VBA

Указанную выше проблему можно решить, написав в редакторе Visual Basic следующий макрос:

Sub DeleteObjects()
  ActiveSheet.DrawingObjects.Delete
End Sub

Если же необходимо удалить только картинки, тогда макрос необходимо изменить на:

Sub DeletePictures()
  Dim xlShape As Shape
  For Each xlShape In ActiveSheet.Shapes
    If xlShape.Type = msoPicture Then xlShape.Delete
  Next
End Sub

Можно дополнить макрос еще одной полезной функцией - удаление гиперссылок:

ActiveSheet.Hyperlinks.Delete

Объединив два действия в одну функцию DeleteObjects будут удалены все объекты и ссылки:

Sub DeleteObjects()
  ActiveSheet.DrawingObjects.Delete
  ActiveSheet.Hyperlinks.Delete
End Sub

В результате выполнения макроса на листе будут удалены все объекты, а гиперссылки заменятся на обычный текст.

Оставить комментарий

Убедитесь, что Вы ввели всю требуемую информацию, в поля, помеченные звёздочкой (*). HTML код не допустим.