Using vb.net to dynamically create excel activeX controls

mrceas

Using VB.net, i want to dynamically create a workbook and add a command botton to one of the sheets. how would i do this. I see example using VBA but i am not able to translate them to Vb.net. Also, after having created the button, how would I be able to defines an event for it (such as the click event). Thanks

SammyB

This should get you started. HTH --Sam
Note -- Before you start, add an Excel Reference to your solution: Solution Explorer - right-click on References - Add - COM Tab - MS Excel Obj Lib. Also, before you start, open Excel, Tools-Macros-Security-Trust Tab-Trust Access to Visual Basic Project.

Expand|Select|Wrap|Line Numbers

         Dim xlApp As Excel.Application

        Dim xlBook As Excel.Workbook

        Dim xlSheet As Excel.Worksheet

        Dim xlButton As Excel.OLEObject

        Dim iStartLine As Long

        xlApp = New Excel.Application

        xlApp.Visible = True

        xlBook = xlApp.Workbooks.Add

        xlSheet = xlBook.ActiveSheet

        xlButton = xlSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _

            Link:=False, DisplayAsIcon:=False, Left:=30, Top:=20, Width:=72, Height:=24)

        xlButton.Name = "BtnTest"

        xlButton.Object.Caption = "Press"

        With xlBook.VBProject.VBComponents.Item(xlSheet.CodeName).CodeModule

            iStartLine = .CreateEventProc("Click", "BtnTest") + 1

            .InsertLines(iStartLine, "Msgbox ""Hi""")

        End With

        xlApp.VBE.MainWindow.Visible = False

Using vb.net to dynamically create excel activeX controls

re: Using vb.net to dynamically create excel activeX controls

Similar .NET Framework bytes

/bytes/development

/bytes/it

/bytes/about