AW: makros ins kontextmenü
06.10.2007 15:00:32
Nepumuk
Hallo Manfred,
würde ich so machen:
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Workbook_Activate()
Call SetCommandbar
End Sub
Private Sub Workbook_Deactivate()
Call ResetCommandbar
End Sub
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Sub SetCommandbar()
Dim objButton As CommandBarButton
Set objButton = CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
With objButton
.Caption = "Mein Button"
.FaceId = 59
.OnAction = "MeinMakro"
.Tag = "Finde mich"
.TooltipText = "Klick mich"
End With
End Sub
Public Sub ResetCommandbar()
Dim objControls As CommandBarControls, objControl As CommandBarControl
Set objControls = CommandBars.FindControls(Tag:="Finde mich")
If Not objControls Is Nothing Then
For Each objControl In objControls
objControl.Delete
Next
End If
End Sub
Public Sub MeinMakro()
MsgBox "Hallo"
End Sub
@Sepp
wenn ich Workbook_BeforeClose abbreche, ist dein Eintrag weg :-(
wenn du meine Commandbar resetest sind die Einträge aus meinen Addins weg :-(
Gruß
Nepumuk
