Selbstinstallierendes AddIn

Private Sub Workbook_Open()
'AddIn_automatisch_installieren()
Dim AddInName As String
Dim intAddIn As Integer
Dim AddInInstalliert As Boolean
AddInName = ThisWorkbook.Name
' Die Namen aller installierten Addins prüfen ...
For intAddIn = 1 To AddIns.Count
If AddIns(intAddIn).Name = AddInName Then
AddInInstalliert = True
Exit For
End If
Next intAddIn
If AddInInstalliert = False Then
'Menü erzeugen
Dim Menue As CommandBarPopup
Dim Schaltflaeche As CommandBarButton
' Menüpunkt anlegen
With Application.CommandBars("Worksheet Menu Bar")
Set Menue = .Controls.Add(Type:=msoControlPopup, _
before:=.Controls.Count, temporary:=True)
End With
' Unterpunkte im Menü anlegen
Menue.Caption = "&Werkzeug"                     ' Name des Menüs
Set Schaltflaeche = Menue.Controls.Add
ThisWorkbook.Sheets("Tabelle1").Shapes("Face_Grau-Weiß").Copy
With Schaltflaeche
.Style = msoButtonIconAndCaption    ' Format für Menüpunkt: Icon und Text
'.FaceId = 1445                      ' Nummer des Icons
.PasteFace
.Caption = "Markierung-Grau/Weiß"  ' Name der Menüzeile
.OnAction = "SchwarzWeiß"         ' Aktion ausführen
.BeginGroup = True                  ' Trennlinie erzeugen
End With
End If
If AddInInstalliert = False Then AddIns(AddInName).Installed = True
End Sub