Menüleiste

Forumthread: Menüleiste
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Menüleiste

Menüleiste

12.01.2004 11:44:22

Daniel

Wenn ich ein von mir erstelltes Addin aufrufe, soll normalerweise gleich ein Button im Menü "extras" eingefügt werden. Dazu muss ich allerdings das Makro nochmal aufrufen. Wie funktioniert es, dass der Button automatisch bei "Extras" hinzugefügt werde, wenn ich das Add-In beim Add-In Manager auswähle,
Gruss,
Daniel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Menüleiste

12.01.2004 11:46:25

Ulf
AW: Menüleiste

12.01.2004 12:09:11

Daniel
AW: Menüleiste

12.01.2004 12:12:27

Ulf
Danke hat funktioniert o.T.

12.01.2004 12:33:09

Daniel

AW: Menüleiste

12.01.2004 11:46:25

Ulf

Schreib den Code in die Prozedur
Private Sub Workbook_Open()
deines Add-In
Ulf

AW: Menüleiste

12.01.2004 12:09:11

Daniel

Danke soweit, aber es funktioniert nicht. Ich habe den Code in die Prozedur ...Workbook_Open() geschrieben und das Ganze wieder als .xla gespeichert. Der Code wird aber trotzdem nicht aufgeführt.


Private Sub Workbook_Open()
Dim Button As CommandBarControl
Dim xExtras As CommandBarControl
For Each xExtras In Application.CommandBars("Tools").Controls
If xExtras.Caption = "Name" Then
xExtras.Delete
End If
Next xExtras
Set Button = CommandBars(1).Controls(6).Controls.Add(1)
With Button
.Style = 2
.Caption = "Name"
.OnAction = "eigenes Makro"
End With
End Sub

Bin etwas ratlos,
Gruss,
Daniel

AW: Menüleiste

12.01.2004 12:12:27

Ulf

Wenn der Code in WorkbookOpen steht, muss das Commandbars- Objekt mit
Application angesprochen werden:
Set Button = application.CommandBars(1).Controls(6).Controls.Add(1)
With Button
.Style = 2
.Caption = "Name"
.OnAction = "eigenes Makro"
End With
End Sub
Ulf

Danke hat funktioniert o.T.

12.01.2004 12:33:09

Daniel

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!