Optimierung eines AddIns
18.03.2005 13:45:04
Torsten
vor ca. einem Jahr habe ich hier im Forum von einem fleißigen Helfer (Namen habe dummerweise nicht dazugeschrieben) ein Add-In erhalten. Leider wird jedesmal, wenn ich Excel öffne, ein weiteres Icon zu diesem Add-In hinzugefügt. Mittlerweile nervt's mich. Leider weiß ich nicht, an welchem Schräubchen ich hier drehen muß, um das abzustellen.
Könnt Ihr mir behilflich sein?
Vielen Dank im voraus und
Gruß
Torsten
Ich bekomme diese Datei leider nicht hochgeladen, daher:
"Diese Arbeitmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Begin insert Start
On Error Resume Next
Application.CommandBars("Standard").Controls("StartKopie").Delete
On Error GoTo 0
'End insert Start
End Sub
Private Sub Workbook_Open()
Call CreateControl
End Sub
"Modul1"
Sub CreateControl()
Dim objBtn As CommandBarButton
'Begin insert Start
On Error Resume Next
Application.CommandBars("Standard").Controls("StartKopie").Delete
Err.Clear
Set objBtn = Application.CommandBars("Standard").Controls.Add
If Err 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Standard").Controls.Add
End If
On Error GoTo 0
With objBtn
.Caption = "Umsatzbudget: Zeilen kopieren"
.OnAction = "start"
.BeginGroup = False
.TooltipText = "Umsatzbudget: Zeilen kopieren"
.Style = msoButtonIcon
.FaceId = 2107
End With
'End insert Start
End Sub
"Modul2"
Sub Speichern()
ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs ActiveWorkbook.Path & "\Kopie.xla"
End Sub
Sub start()
UserForm1.Show
End Sub
In dem Zusammenhang: Was bedeutet "ThisWorkbook.IsAddin = True"?