Имеется область с картинками, требуется с помощью макроса удалить объекты картинки с произвольно выделенной области. предполагалось использовать ячейку(G7) с записанным в ней искомым диапазоном в формате текста:
[vba]Код
Public Sub DelShapes()
Dim shp As Shape, rng As Range
Set rng = Range(G7)
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column <= rng.Columns.Count Then
shp.Delete
End If
Next shp
End Sub
[/vba]
Однако не выходит, может есть методы массового удаления объектов в выделении, без использования макроса ? прошу помочь