Как обрабатывать события из встроенных Excel.OleObjects или Excel.Shapes

Ответ 1

Вы пытались использовать NewLateBinding.LateGet?

using MSForms = Microsoft.Vbe.Interop.Forms;
using Microsoft.VisualBasic.CompilerServices;

...

MSForms.CommandButton CommandButton1 = (MSForms.CommandButton)NewLateBinding.LateGet(Globals.ThisWorkbook.Worksheets(1), null, "CommandButton1", new object[0], null, null, null);                
CommandButton1.Click += new Microsoft.Vbe.Interop.Forms.CommandButtonEvents_ClickEventHandler(CommandButton1_Click);

Он ссылается на MSDN на форумах VSTO и в старый блог пост.

Ответ 2

Тип решения: Уровень документа VSTO

Сценарий:
1.) Excel.Решет, созданный во время выполнения. (а не элемент рабочего листа)
2.) Добавить кнопку на Рабочем листе во время выполнения, которая запускает код С# при нажатии.

Ссылки на сборку:
Microsoft.Vbe.Interop(Microsoft.Vbe.Interop.dll)
Microsoft.Vbe.Interop.Forms(Microsoft.Vbe.Interop.Forms.dll)
Microsoft.VisualBasic(Microsoft.VisualBasic.dll)

Протестировано/Рабочий код:

using MSForms = Microsoft.Vbe.Interop.Forms;
using System.Windows.Forms;

...

Microsoft.Vbe.Interop.Forms.CommandButton CmdBtn;

private void CreateOLEButton()
{
   Excel.Worksheet ws = Globals.ThisWorkbook.Application.Sheets["MyWorksheet"];

   // insert button shape
   Excel.Shape cmdButton = ws.Shapes.AddOLEObject("Forms.CommandButton.1", Type.Missing, false, false, Type.Missing, Type.Missing, Type.Missing, 500, 5, 100, 60);
   cmdButton.Name = "btnButton";

   // bind it and wire it up
   CmdBtn = (Microsoft.Vbe.Interop.Forms.CommandButton)Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(ws, null, "btnButton", new object[0], null, null, null);
   CmdBtn.Caption = "Click me!";
   CmdBtn.Click += new MSForms.CommandButtonEvents_ClickEventHandler(ExecuteCmd_Click);
}

private void ExecuteCmd_Click()
{
   MessageBox.Show("Click");
}

Ответ 3

Можете ли вы программно добавить код в CodeModule в Workbook, как это?

Private Sub CommonButton_Click(ByVal buttonName As String)
  MsgBox "You clicked button [" & buttonName & "]"
End Sub

Private Sub CreateEventHandler(ByVal buttonName As String)
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim codeText As String
    Dim LineNum As Long

    Set VBComp = ThisWorkbook.VBProject.VBComponents(Me.CodeName)
    Set CodeMod = VBComp.CodeModule
    LineNum = CodeMod.CountOfLines + 1

    codeText = codeText & "Private Sub " & buttonName & "_Click()" & vbCrLf
    codeText = codeText & "  Dim buttonName As String" & vbCrLf
    codeText = codeText & "  buttonName = """ & buttonName & "" & vbCrLf
    codeText = codeText & "  CommonButton_Click buttonName" & vbCrLf
    codeText = codeText & "End Sub"
    CodeMod.InsertLines LineNum, codeText
End Sub

Ответ 4

Используйте инструментарий для форм interop. Это бесплатно от Microsoft. Он предоставляет com wrappers и event messenger class, который связывает данные событий с .NET и VBA. Я использовал его для обработки контрольных событий из VBA в .NET и событий от .NET до VBA. Вы должны использовать interop

http://www.codeproject.com/Articles/15690/VB-C-Interop-Form-Toolkit.

Из инструментария ducoumentation:

Interop UserControls предоставляет базовый набор встроенных событий (Click, GotFocus, Validate и т.д.) в Visual Basic 6.0. Вы можете определить свои собственные события в Visual Studio.NET и поднять их с помощью RaiseEvent. Чтобы обрабатывать события в Visual Basic 6.0, вам нужно добавить ссылку на проект и добавить объявление переменной WithEvents в свой код, а затем обработать события, используя переменную WithEvents, а не сам элемент управления.

Как обрабатывать пользовательские события UserControl для пользователей

1. В Visual Basic 6.0 в меню "Проект" нажмите "Ссылки". Обратите внимание, что уже есть ссылка на ControlNameCtl, где ControlName - имя вашего Interop UserControl.

2. В списке "Доступные ссылки" найдите ссылку для ControlName и проверьте ее, а затем нажмите "ОК".

3. В Редакторе кода добавьте объявление для переменной WithEvents:

Dim WithEvents ControlNameEvents As ControlLibrary.ControlName

В обработчике событий Form_Load добавьте следующий код для инициализации переменной WithEvents:

Private Sub Form_Load()
    Set ControlNameEvents = Me.ControlNameOnVB6Form
End Sub

Добавить код для обработки вашего настраиваемого события в обработчике событий переменной WithEvents:

Private Sub ControlNameEvents_MyCustomEvent()
    MsgBox("My custom event fired")
End Sub