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

Старая форма входа

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

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

ilyxa1234

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

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

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

Сообщений: 12

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

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

Excel 2010

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

Код

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

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

Код

Set rng = Selection

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

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

Ответить

Pelena

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

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

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

Сообщений: 19404

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

Замечаний: ±

Excel 365 & Mac Excel

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

)

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

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

Код

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

[/vba]

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

Ответить

ilyxa1234

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

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

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

Сообщений: 12

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

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

Excel 2010

Спасибо!

Ответить

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

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