Обработка событий

[Стёпка]

Такая проблема...Создаю программно из проекта VB кнопку на листе Excel...А каким образом обработать события этой кнопки (Click и всё такое...) также из проекта на VB?...

[GSerg]

А попробуй программно же добавить в эксель новый модуль, закинь туда заранее написанную процедуру обработки и установи её как OnAction для кнопки...

[Стёпка]

Ну да...В принципе можно и так....К тому же процедура для обработки есть...Только вот как программно модуль в эксель вставить, и туда процедуру засунуть, а?...

[GSerg]

В ссылках подключи Microsoft Visual Basic for Applications Extensibility. Там разберёшься...

[ANDLL]

Гм. Я конечно не разбираюсь... Но, если ты создаешь кнопку програмно, то почему бы не объявить переменную типа кнопка с WithEvents, и пресвоить ей значение создаваемой кнопки?

[ANDLL]

Вот такой код:

Код: Выделить всё

Option Explicit
Dim exc As Excel.Application
Dim ash As Excel.Worksheet
Dim wbk As Excel.Workbook
Dim btn As Excel.OLEObject
Dim WithEvents a_btn As MSForms.CommandButton
'Ссылка на Excel Library
'Ссылка на Microsoft Forms 2.0(файл FM20.dll)

Private Sub a_btn_Click()
Beep
End Sub

Private Sub Form_Load()
Set exc = New Excel.Application
Set wbk = exc.Workbooks.Add
exc.Visible = True
DoEvents
Set ash = wbk.ActiveSheet
ash.Activate
DoEvents

Set btn = ash.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=75.75, Top:=58.5, Width:=124.5, Height:=79.5)
Set a_btn = btn.Object
End Sub