Herbers Excel-Forum - das Archiv

PopUp menu mit r-klik



Excel-Version: 8
nach unten

Betrifft: PopUp menu mit r-klik
von: Greg


Geschrieben am: 25.04.2002 - 12:50:18

Hallo Leute,

ich moechte ein popup auf rechtsklik erstellen
dabei gehen mir die ueblichen cut,copy,...usw. verloren
kann ich meins in das voreingestellte menu einfuegen?

danke im vorraus
gruesse aus Athen

script:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim stoBar As CommandBar
Dim stoButton As CommandBarButton

Cancel = True
On Error Resume Next
Application.CommandBars("test").Delete
On Error GoTo 0
Set stoBar = Application.CommandBars.Add("test", msoBarPopup)


Set stoButton = stoBar.Controls.Add
With stoButton
.Caption = "pstv"
.OnAction = "paste_value"
.Style = msoButtonCaption
End With


stoBar.ShowPopup
End Sub


nach oben   nach unten

Re: PopUp menu mit r-klik
von: GraFri


Geschrieben am: 25.04.2002 - 13:13:45

Hallo
Option Explicit
Sub KonTextMenu()
Dim Ctrl As CommandBarButton
With CommandBars("Cell")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.BeginGroup = True      'Trennlinie einfügen
.Caption = "Zeile 8 Blau"
.OnAction = "Zeile8blau"
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Spalte F grün"
.OnAction = "SpalteFgr"
End With
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "rückgängig"
.OnAction = "Rückgängig"
End With
End With
End Sub
Sub Zurueck()
'stellt wieder das Standardkontextmenü her
CommandBars("Cell").Reset
End Sub
mfg, GraFri

nach oben   nach unten

Re: ok! Danke
von: Greg
Geschrieben am: 25.04.2002 - 13:49:11

.

 nach oben