Kontexmenu rechte Maus-Taste

Forumthread: Kontexmenu rechte Maus-Taste
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Kontexmenu rechte Maus-Taste

Roger

Nabend
Ich würde gerne das Kontexmenu (rechte maus-Taste in Tabelle) verändern finde aber keinen Beitrag dazu.
Habt ihr ne Idee?
Roger

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Kontexmenu rechte Maus-Taste

Josef
AW: Kontexmenu rechte Maus-Taste

Roger

AW: Kontexmenu rechte Maus-Taste

04.02.2006 01:31:42

Josef

Hallo Roger!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CellMenu()
Dim objComBar As CommandBar
Dim objCBarBtn As CommandBarButton

Set objComBar = Application.CommandBars("Cell")

With objComBar
  .Reset

  Set objCBarBtn = .Controls.Add(msoControlButton)

  With objCBarBtn
    .Style = msoButtonIconAndCaption
    .Caption = "Hallo! Ich bin der neue!"
    .FaceId = 59
    .TooltipText = "Neuer Button"
    .OnAction = "TestMakro"
    .BeginGroup = True
  End With

  Set objCBarBtn = Nothing

End With

Set objComBar = Nothing
End Sub

Sub TestMakro()
MsgBox "Hallo " & Application.UserName & "!"
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************