Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Button in einem ADDIN ansprechen
Autor: Pone
Datum: 05.11.07 13:08
Hallo Leute, ich habe ein Addin für Excel und ich würde gerne den Button ansprechen den ich angezeigt bekomme. hier der Code den ich komplett in meinen Designer stehen habe: Dim WithEvents objCommandBarButton As CommandBarButton Private Sub AddinInstance_OnConnection(ByVal Application As Object, _ ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _ ByVal AddInInst As Object, custom() As Variant) Dim objCommandBars As CommandBars Dim objCommandBar As CommandBar Dim objCommandBarControl As CommandBarControl Set applicationObject = Application 'Erstellen eines Menübefehls unter "Extras" Set objCommandBars = applicationObject.CommandBars Set objCommandBar = objCommandBars.Item("Tools") 'Prüfen ob dieser Eintrag schon existiert For Each objCommandBarControl In objCommandBar.Controls If objCommandBarControl.Caption = "TEST" Then objCommandBar.Controls.Item("TEST").Delete End If Next objCommandBarControl Set objCommandBarButton = objCommandBar.Controls.Add(msoControlButton, Temporary:=True) With objCommandBarButton .Caption = "TEST" .Style = msoButtonCaption .Tag = "SpezialSeitenAddIn" .OnAction = "!<Testaddin2.Connect>" .Visible = True End With MyError_Exit: Exit Sub MyError: MsgBox "Fehler beim Menüeintrag " & Err.Number & " " & Err.Description Resume MyError_Exit End Sub Public Sub objCommandBarButton_Click(ByVal Ctrl As CommandBarButton, ByRef Canceldefault As Boolean) MsgBox "Hallo" End Sub Der Fehler geschieht schon gleich am Anfang denn das Object löst kein Automatisierungsereignis aus. Was mache ich falsch? Danke

Button in einem ADDIN ansprechen

2.570

Pone

05.11.07 13:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen