AW: Add in in Symbolleiste einbinden
19.10.2007 19:02:50
{Boris}
Hi Silvia,
dafür gibt es die Ereignisse der Mappe unter "DieseArbeitsmappe":
Private Sub Workbook_AddinInstall()
und
Private Sub Workbook_AddinUninstall()
Da musst Du den Code hinterlegen.
Mit diesem Code wird in der Symbolleiste "Standard" ein neuer Menüpunkt erzeugt und mit Uninstall wieder gelöscht:
Private Sub Workbook_AddinInstall()
With Application.CommandBars("Standard").Controls.Add
.Caption = "BlaBla"
.FaceId = 150 'oder irgendwas anderes
.OnAction = "DerNameDeinesAddIns.xla!DerNameDerProzedur"
End With
End Sub
Private Sub Workbook_AddinUninstall()
Application.CommandBars("Standard").Controls("BlaBla").Delete
End Sub
Grüße Boris