Kontextmenü
20.06.2002 15:03:29
Eck Ingo
Sub Kontext()
Dim NeuesMenü As CommandBarButton
With CommandBars("Cell")
Do While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Loop
'
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Kopieren"
.OnAction = "Ausschneiden"
End With
'
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Einfügen"
.OnAction = "Einfuegen"
End With
'
End With
End Sub
Sub KontextmenüWiederherstellen()
CommandBars("Cell").Reset
End Sub
Sub Einfuegen()
On Error Resume Next
ActiveCell.PasteSpecial Paste:=xlValues
End Sub
Sub Ausschneiden()
On Error Resume Next
ActiveCell.Cut
End Sub
Gruß Ingo
Anzeige