Как создать макросом UserForm, создать на ней кнопку и привязать к ней макрос? - VBA

Формулировка задачи:

Пытаюсь сделать так:

                    Листинг программы
                
Load MyBar1
Set B = New MyBar1
Set o = B.Controls.Add("Forms.CommandButton.1", "", True)
o.OnAction "Макрос1"

Код на последней строчке выдаёт ошибку (объект не поддерживает этот метод).

Решение задачи: «Как создать макросом UserForm, создать на ней кнопку и привязать к ней макрос?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Dim WithEvents c As MSForms.CommandButton 'Объявляем кнопку с её событиями
 
Private Sub c_Click()
    '
    'Событие нажатия на неё
    '
    'Варианты вызова макроса
    Application.Run "Макрос1" ', Аргумент1, Аргумент2, Аргумент3, и_т_д
    'Или
    Макрос1 ', Аргумент1, Аргумент2,... '---Прямой вызов макроса
End Sub
 
Private Sub UserForm_Initialize()
    Set c = Controls.Add("Forms.CommandButton.1", "c", 1)
    With c
        .Move 10, 10, 100, 20 '-------- Скрытый метод размерности Move Left, Top, Width, Height
        .Caption = "Нажми сюда"
    End With
End Sub

Оцени полезность:

7 голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы