Приветствую всех, кто читает данную тему!
Имеется вопрос по работе кнопки, добавленной просто на лист Excel (без формы) из элементов управления формы.
Ситуация такова: имеются несколько процедур в VBA, которые запускаются кнопками на листе. Эти кнопки создаются с помощью кода, помещённого в модуль "ЭтаКнига" при помощи события Workbook_Open. Всё работает за исключением одной вещи: после создания кнопка оказывается выделенной рамкой и при щелчке клавишей мыши по ней вместо запуска макроса вовнутрь кнопки помещается курсор с возможностью редактирования надписи на ней. Приходится щелкать дополнительно по любой ячейке листа, чтобы снять выделение с кнопки. Существует ли команда для убирания редактируемого состояния кнопки после её создания, такая, чтобы при щелчке сразу запускался макрос?
Как ни странно, нигде не нашёл ответа на этот вопрос. Создаётся впечатление, будто только у меня возникла такая проблема.
Кнопка создаётся следующим образом:
Благодарю всех за помощь!
Имеется вопрос по работе кнопки, добавленной просто на лист Excel (без формы) из элементов управления формы.
Ситуация такова: имеются несколько процедур в VBA, которые запускаются кнопками на листе. Эти кнопки создаются с помощью кода, помещённого в модуль "ЭтаКнига" при помощи события Workbook_Open. Всё работает за исключением одной вещи: после создания кнопка оказывается выделенной рамкой и при щелчке клавишей мыши по ней вместо запуска макроса вовнутрь кнопки помещается курсор с возможностью редактирования надписи на ней. Приходится щелкать дополнительно по любой ячейке листа, чтобы снять выделение с кнопки. Существует ли команда для убирания редактируемого состояния кнопки после её создания, такая, чтобы при щелчке сразу запускался макрос?
Как ни странно, нигде не нашёл ответа на этот вопрос. Создаётся впечатление, будто только у меня возникла такая проблема.
Кнопка создаётся следующим образом:
| Код |
|---|
This Workbook.Worksheets (" Лист1").Buttons.Add (690, 250, 240, 25).Select
With Selection
.Name = "ISO_DRAWING_BUTTON"
.OnAction = "ISO_DRAWING_FILE"
.Characters.Text = "Создание ссылок на чертежах"
End With |
Благодарю всех за помощь!
