AW: erweiterets Kontextmenü funktioniert nur wenn xlam vor der Datei geöffnet wird
02.01.2020 17:17:08
Nepumuk
Hallo Thomas,
1. Kann ich nicht bestätigen. Funktioniert wie erwartet.
2. So:
Option Explicit
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Call DeleteButton
End Sub
Public Sub Workbook_Open()
Call CreateButton
End Sub
Option Explicit
Option Private Module
Private Const BUTTON_CAPTION As String = "Datum einfügen"
Private Const COMMANDBAR_NAME As String = "Cell"
Public Sub CreateButton()
Dim objCommandBar As CommandBar
Dim objCommandBarButton As CommandBarButton
Call Application.OnKey(Key:="+^C", Procedure:="Modul1.OpenCalendar")
Call DeleteButton
For Each objCommandBar In Application.CommandBars
If objCommandBar.Name = COMMANDBAR_NAME Then
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
With objCommandBarButton
.Tag = BUTTON_CAPTION
.Caption = BUTTON_CAPTION
.OnAction = "Modul1.OpenCalendar"
.BeginGroup = True
End With
End If
Next
End Sub
Public Sub DeleteButton()
Dim objCommandBarControls As CommandBarControls
Dim objCommandBarControl As CommandBarControl
Call Application.OnKey(Key:="+^C")
Set objCommandBarControls = CommandBars.FindControls(Tag:=BUTTON_CAPTION)
If Not objCommandBarControls Is Nothing Then
For Each objCommandBarControl In objCommandBarControls
Call objCommandBarControl.Delete
Next
Set objCommandBarControls = Nothing
End If
End Sub
Gruß
Nepumuk