klassenmodul?
23.08.2004 14:19:24
Andy
Private Sub Workbook_Open()" in einem Modul funtioniert es. Muss ich auch den Code des/ der Makros in das Klassenmodul kopiere, auf welches der Button verweist? Der Code soll bezwecken, dass beim Laden des Addins ein Button in der StandardSymbolleiste erscheint.
Damit soll das eigentliche Makro gestartet werden. Beim Schließen der Mappe/ bzw. deaktivieren des Addins soll der Button verschwinden. Danke an die Helfer und nochmals an Hans W. Herber.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Standard") _
.Controls("LDiagramm").Delete
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars("Standard")
On Error Resume Next
oBar.Controls("LDiagramm").Delete
On Error GoTo 0
Set oBtn = oBar.Controls.Add
With oBtn
.Caption = "LDiagramm"
.Style = msoButtonIcon
.FaceId = 361
.OnAction = "Gesamt"
End With
End Sub
StandardModule: Modul
Gruß
Andy