Есть документ, куда постоянно копируют данные с сайтов (путем Ctrl+A и вставляют в лист). Из-за такого копирования подтягиваются дополнительные элементы (скрин прилагается ниже)
Из-за низ размер файла постепенно доходит на нескольких мб. Что затрудняет нормальную работу с документом. Я использовал команду:
Код
Sub Удалить_данные()
Sheets("Данные").Select
Cells.Select
Selection.Clear
End Sub
Но эти элементы остаются на прежнем месте. Подскажите, как сделать полный формат листа или каким образом копировать данные, что бы не подтягивались "дополнительные элементы".
Если под элементами понимаются объекты Shape, то следующий макрос поможет удалить все такие объекты:
Код
sub delShapes()
dim shp as shape
dim sh as worksheet
for each sh in activeworkbook.worksheets
for each shp in sh.shapes
shp.delete
next shp
next sh
end sub