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

Beiträge aus den Excel-Beispielen zum Thema "Word-Dokumente via VBA ausdrucken"