Удалить ВСЕ существующие кнопки на листе

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

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

master-dd

Дата: Воскресенье, 25.08.2013, 23:35 | Сообщение № 1

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

Ранг: Участник

Сообщений: 78

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

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

2016

Прошу прощения, но нужна ещё помощь... pray

С помощью какой команды можно удалить ВСЕ существующие кнопки на листе?
И второй вопрос: с помощью какой команды можно удалить КОНКРЕТНУЮ кнопку на листе (по тексту в ней, а не по порядковому номеру, т.е. "Настройки", а не "Button 9", например) ?

Спасибо.

Ответить

SkyPro

Дата: Понедельник, 26.08.2013, 00:54 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

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

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

2010

Удалить все кнопки (елементы управления формой):[vba]

Код

Sub delAll()
ActiveSheet.Buttons.Delete
End Sub

[/vba]

Удалить все кнопки (активИкс):[vba]

Код

Sub dell()
For Each ob In ActiveSheet.OLEObjects
If ob.Name Like "CommandButton*" Then
ob.Delete
End If
Next
End Sub

[/vba]

Удалить по названию:
[vba]

Код

Sub del()
Dim i&, tx$
tx = InputBox("Введите подпись кнопки для удаления")
On Error Resume Next
       For i = 1 To ActiveSheet.OLEObjects.Count
           If ActiveSheet.OLEObjects.Item(i).Object.Caption = tx Then
               ActiveSheet.OLEObjects.Item(i).Delete
           End If
       Next
       For i = 1 To ActiveSheet.Buttons.Count
           If ActiveSheet.Buttons.Item(i).Caption = tx Then
               ActiveSheet.Buttons.Item(i).Delete
           End If
       Next
End Sub

[/vba]