Удаление фигур в выделенной области

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

Удаление фигур в выделенной области (Макросы/Sub)

ilyxa1234 Дата: Среда, 06.10.2021, 19:44 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2010

Здравствуйте. Имеется эксель файл с хаотично расположенными фигурами, так же есть макрос который удаляет фигуры в прописанной области:

Dim shp As Shape, rng As Range Set rng = Range("A1:GI743") 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

Необходимо записать его так чтоб удаление происходило не в прописанном диапазоне, а в выделенном.
Если прописать

Set rng = Selection

то удаление происходит не в выделенной области, либо вообще не происходит.
Помогите пожалуйста сделать так, чтобы удаление происходило именно в выделенной зоне.

К сообщению приложен файл: 5950929.xls (458.5 Kb)

Ответить

Pelena Дата: Среда, 06.10.2021, 20:01 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата ilyxa1234, 06.10.2021 в 19:44, в сообщении № 1 (

писал(а)):

удаление происходит не в выделенной области

Пропишите условие для столбцов по аналогии со строками

If shp.TopLeftCell.Row >= rng.Row And shp.TopLeftCell.Row <= rng.Row + rng.Rows.Count And shp.TopLeftCell.Column >= rng.Column And shp.TopLeftCell.Column <= rng.Column + rng.Columns.Count Then

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ilyxa1234

Дата: Среда, 06.10.2021, 20:16 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2010

Спасибо!

Ответить

Удаление фигур в выделенной области (Макросы/Sub)

Страница 1 из 1
1