Кнопка Option Option Reset Macro

Question

Я ищу простой макрос, который я мог бы активировать с помощью кнопки управления формой, которая очистит все кнопки управления формой на моем листе.

У меня есть список опций для спецификаций промышленных деталей, из которых только один может быть выбран в каждом разделе. Однако, как только один выбран, кнопка опции управления формой остается заполненной. Я раньше обходил это, используя флажки, где, если вы снова нажмете на поле, он удалит галочку. Однако, как только я узнал, что должен был создать форму таким образом, чтобы в каждом разделе можно было выбрать только один вариант (для удобства использования в случае, если менее компьютерный человек должен был его использовать), стало ясно, что кнопками выбора являются правильный путь.

Так что мне нужен простой макрос, который я могу активировать с помощью кнопки, которая очистит эти кнопки настроек до пустого, как если бы ни один не был выбран. Я посмотрел и попробовал некоторые строки кода, но пока никто не работал. Возможно, я упускаю что-то очевидное или искал не то, но я не думаю, что это так.

Я проверил следующие страницы и попытался их код:

http://www.mrexcel.com/forum/excel-questions/689865-how-clear-all-checkboxes-option-buttons-list-boxes-form-3.html

Re-setting all option buttons at once

http://www.excel-easy.com/vba/examples/option-buttons.html

Я чувствую, как это должно быть просто. Макрокод VBA, который сбросит кнопки опции FORM CONTROL на пустой (что, я считаю, является ложным состоянием?). Не нужно беспокоиться о том, чтобы определенные диапазоны были очищены; одна кнопка для сброса листа будет работать отлично.

Заранее благодарим за любую помощь.

Answer 1

Цикл по коллекции Shapes:

Sub Reset() 
    For Each vCtrl In ActiveSheet.Shapes 
     vCtrl.DrawingObject.Value = False 
    Next 
End Sub