Microsoft Office Tutorials and References
In Depth Information
Kapitel 7 – Tipps und Tricks
Mit der Schaltfläche OK schließen Sie die UserForm wieder. Über
eine Symbolleiste kann sie aber wieder aktiviert werden. In Excel bis
Version 2003 steht diese in der Mitte des Tabellenblattes, ab Excel
2007 in der Gruppe Add-Ins der Multifunktionsleiste. Ein Klick auf
Schließen deaktiviert die gesamte Arbeitsmappe.
Abbildung 7.25: Symbolleiste oder Add-Ins-Gruppe für das Makro Controlling-Begriffe
Auto-Makros in der Arbeitsmappe
Für den Start der UserForm und die Produktion der Symbolleiste mit
den Aufruf-Schaltflächen sorgt das Auto-Makro Workbook_Open()
im Excel-Objekt DieseArbeitsmappe . Auch beim Schließen der
Arbeitsmappe wird ein Makro aktiv, Workbook_BeforeClose() löscht
die Symbolleiste wieder aus der Oberfläche. Die beiden Prozedur-
makros für die Schaltflächen müssen in ein Modul geschrieben werden.
Listing 7.2: Auto-Makro Workbook_Open
Private Sub Workbook_Open()
Dim mybar
On Error Resume Next
Application.CommandBars("Controlling-Begriffe").Delete
On Error GoTo 0
Set mybar = Application.CommandBars.Add(Name:="Controlling-Begriffe")
With mybar
.Visible = True
.Controls.Add Type:=msoControlButton, ID:=3
.Controls(1).Style = msoButtonCaption
.Controls(1).OnAction = "StartCB"
.Controls(1).DescriptionText = "Controlling-Begriffe"
.Controls(1).Caption = "Controlling-Begriffe"
.Controls.Add Type:=msoControlButton, ID:=3
.Controls(2).Style = msoButtonCaption
.Controls(2).OnAction = "CBSchliessen"
.Controls(2).DescriptionText = "Controlling-Begriffe schließen"
Search JabSto ::




Custom Search