Office: (Office 2007) Add In erstellen und in Symbolleiste anzeigen

User · 16. Oktober 2007

Hallo,

wer kann mir helfen?

Ich habe in Excel ein AddIn erstellt. Nach Abschluss sollte eigentlich automatisch unter dem Menü-Punkt "Extras" das neue AddIn aufgelistet sein.

Das ist bei mir nicht der Fall. In den Symbolleisten unter Anpassen kann ich
den Menüpunkt AddIn nicht finden. Wie bekomme ich jetzt das AddIn in die
Symbolleiste?

Vielen Dank für Eure Hilfe.

Grüße
Silvia

:)

chris-kaiser · 18. Oktober 2007

hiho

siehe

http://www.ms-office-forum.net/forum...d.php?t=219694

kannst DU das umbauen?

so habe es selbst mal kurz umgebaut

Code:

Private Const COMMANDBAR_NAME As String = "Worksheet Menu Bar"
Public Sub pCB()
Dim cbctl As CommandBarControl
Dim cbpop As CommandBarPopup
Call pDelB(True)
Set cbpop = Application.CommandBars(COMMANDBAR_NAME). _
Controls(6)
cbpop.Visible = True
cbpop.Tag = "hiho"
Set cbctl = cbpop.Controls.Add(Type:=msoControlButton)
With cbctl
.Visible = True
.FaceId = 285
.Style = msoButtonIconAndCaption
.Caption = "was auch immer"
.OnAction = "dein_makro"
End With
Set cbpop = Nothing
Set cbctl = Nothing
End Sub

Public Sub pDelB(Optional ByVal bolDelete As Boolean = False, _
Optional ByVal bolHide As Boolean = True)
Dim cbpop As CommandBarPopup
Set cbpop = Application.CommandBars(COMMANDBAR_NAME) _
.FindControl(Tag:="hiho")
If Not cbpop Is Nothing Then
With cbpop
If bolDelete Then .Delete Else .Visible = bolHide
End With
Set cbpop = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'Code in "dieseArbeitsmappe"
Private Sub Workbook_Activate()
Call pDelB
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call pDelB(True)
End Sub
Private Sub Workbook_Deactivate()
Call pDelB(, False)
End Sub
Private Sub Workbook_Open()
Call pCB
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Silvia37 · 19. Oktober 2007

Hallo Chris,

oh, ich glaube nicht, das ich das hinbekomme. Bin VBA-Anfänger und habe
somit noch nicht viel Ahnung davon.

Aber ich werde mir mal Deinen Link zu Gemüte führen.

Trotzdem vielen vielen Dank für Deine Hilfe.

Gruß
Silvia

chris-kaiser · 19. Oktober 2007

hiho

der untere Code ist doch schon umgebaut *Smilie
nur mehr deinen Makronamen anpassen.

Silvia37 · 19. Oktober 2007

Hi Chris,

hab in der Zwischenzeit anderweitig einen Code gefunden, der, für mich
ganz wichtig, Erklärungen für die einzelnen Code-Zeilen enthält, der mir
übersichtlicher erscheint. Das hilft mir auch, Deinen Code besser zu verstehen.

Ich tu mich in der Programmierung noch sehr schwer, stehe ganz am Anfang.

Trotzdem sehr vielen Dank für Deine Mühen und Deine Hilfe.

Gruß
Silvia

Silvia37 · 19. Oktober 2007

Hi,

ich bin's nochmal.

Den unteren Code kann ich übrigens gut gebrauchen. Somit
war Deine Hilfe nicht ganz umsonst.

Schönen Tag noch und vielen Dank!!!!!!!!!!*Smilie

Gruß.

Silvia

Office: (Office 2007) Add In erstellen und in Symbolleiste anzeigen

Add In erstellen und in Symbolleiste anzeigen

Add In erstellen und in Symbolleiste anzeigen

Add In erstellen und in Symbolleiste anzeigen

Add In erstellen und in Symbolleiste anzeigen - Similar Threads - Add erstellen Symbolleiste

Falscher / übrig gebliebener Add-in Oulook Eintrag

Office-Add-in Calendar

Add in Legacy outlook

Erstellen eines Speicher effizienten Datenmodells mithilfe von Excel und dem Power Pivot-Add-in

Fadenkreuz Add-In erstellen und ein-/abschalten

Teams - Outlook Add-In lädt nicht mit

Eigenes Erstellen von Add-Ins