RE: Event Handler for OLE objects in Excel

Tech-Archive recommends: Fix windows errors by optimizing your registry

a better one:

OLEObject obj1 = (OLEObject)btn.DrawingObject;

"NA_AB" wrote:

hey bro, i was also in need of the same isuue but atlast came up wid dis.
this should solve d purpose:

Range r = Connect.myApplication.ActiveCell;
Work*** sht = (Work***)Connect.myApplication.Active***;
Shape btn = sht.Shapes.AddOLEObject("Forms.CommandButton.1", Missing.Value,
Missing.Value, Missing.Value, Missing.Value, Missing.Value,
Missing.Value,sht.get_Range(r, r).Left, sht.get_Range(r, r).Top,
sht.get_Range(r,r).Width, sht.get_Range(r, r).Height);

OLEObject obj1 = (OLEObject)(sht.OLEObjects("CommandButton1"));
MSForms.CommandButton mbtn = (MSForms.CommandButton)(obj1.Object);
mbtn.Caption = "click me";
mbtn.Click += new
Microsoft.Vbe.Interop.Forms.CommandButtonEvents_ClickEventHandler(main_form_click);
.

Quantcast