Wie kann ich die "rechte Maustaste" bei einer Userform TextBox aktivieren, benötige hier nur die Funktion "einfügen".
Vielen Dank
Guenter
Private Sub CreateCommandBar()
Dim objCommandBar As CommandBar
Dim objCommandBarButton As CommandBarButton
Call DeleteCommandBar
Set objCommandBar = CommandBars.Add(name:=COMMANDBAR_NAME, Position:=msoBarPopup, Temporary: _
=True)
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = "&Einfügen"
.FaceId = 22
.OnAction = "PasteText"
.Style = msoButtonIconAndCaption
End With
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = "&Ausschneiden"
.FaceId = 21
.OnAction = "CutText"
.Style = msoButtonIconAndCaption
End With
Set objCommandBarButton = objCommandBar.Controls.Add(Type:=msoControlButton)
With objCommandBarButton
.Caption = "&Kopieren"
.FaceId = 22
.OnAction = "CopyText"
.Style = msoButtonIconAndCaption
End With
End Sub
Script aus Modul:Public Sub PasteText()
Tab2Mail.ActiveControl.Paste
End Sub
Public Sub CopyText()
Tab2Mail.ActiveControl.Copy
End Sub
Public Sub CutText()
Tab2Mail.ActiveControl.Cut
End Sub