Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Add-Ins > Aufruf von Add-In
Fragen zu den AddIn´s aus dem Downloadbereich
In diesem Board befinden sich 22 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


MarcCologne ist offline MarcCologne  Aufruf von Add-In Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden Email
11.1.2007 - 16:25 Uhr
1 Posts
Junior


Hallo wie kann ich denn ein Icon in der Symbolleiste hinzufügen mit dem ich das Add-in aufrufen kann?
Wie bei eurem Beispiel Add-in die Glühlampe.

RO_SCH ist offline RO_SCH  Aufruf von Add-In Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
11.1.2007 - 16:54 Uhr
2406 Posts
Super-Moderator


Hallo MarcCologne,

wenn du ein Icon an eine Shortcutleiste anhängen möchtest, dann so
Aufruf der Sub in der Workbook_Open Prozedur.

Sub CreateControl()
Dim objBtn As CommandBarButton
On Error Resume Next
Application.CommandBars("Standard").Controls("Neues Icon").Delete
Err.Clear
Set objBtn = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton)
On Error GoTo 0
With objBtn
.Caption = "Neues Icon"
.OnAction = "Tabelle1.Makro_2" '<-- hier muß dein Makroname stehen der ausgeführt werden soll
.BeginGroup = False
.TooltipText = "Neues Icon"
.FaceId = 59 ' <--- habe mal den Smilie genommen
End With
End Sub

Nicht vergessen in der Workbook_BeforeClose Prozedur den Smilie wieder zu löschen

Private Sub Workbook_BeforeClose()
Application.CommandBars("Standard").Controls("Neues Icon").Delete
End Sub

Gruß Roland

Gruß Roland

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek