AW: AddIns beim Start von Excel / Office XP hinzufügen
Excel
Huii!
Also, so wie es in der OH angegeben ist, habe ich auch die
Sub Auto_Open() benutzt. Hier der Code!
Private Const CBR_INSERT As String = "Insert Info Wizard"
Private Const CTL_INSERT As String = "Insert Info"
Sub Auto_Open()
Autoload=true
Dim cbrWiz As CommandBar
Dim ctlInsert As CommandBarButton
On Error Resume Next
' Ermitteln, ob die Befehlsleiste bereits vorhanden ist.
Set cbrWiz = CommandBars(CBR_INSERT)
' Erstellen der Befehlsleiste, wenn sie noch nicht vorhanden ist.
If cbrWiz Is Nothing Then
Err.Clear
Set cbrWiz = CommandBars.Add(CBR_INSERT)
' Festlegen der Sichtbarkeit der Befehlsleiste.
cbrWiz.Visible = True
' Hinzufügen eines Schaltflächen-Steuerelements.
Set ctlInsert = cbrWiz.Controls.Add
With ctlInsert
.Style = msoButtonCaption
.Caption = CTL_INSERT
.Tag = CTL_INSERT
' Angeben der Prozedur, die beim Klicken auf die Schaltfläche
' ausgeführt wird.
.OnAction = "ShowForm"
End With
else
' Sicherstellen, dass die vorhandene Befehlsleiste sichtbar ist.
cbrWiz.Visible = True
End If
End Sub
Tja, wenn ich das als Addin abspeichere und Excel bzw. ist ja auch unter PowerPoint einsetzbar, schließe und dann Excel/PowerPoint öffne, dann wird eben nicht das AddIn geladen, ja nicht mal hinzugefügt. Soll heißen ich kann unter Extras usw. keine AddIns sehen!!
Hoffe, damit ist das Problem etwas klarer geschildert!!
Thanx!
cu