AW: Danke
22.03.2019 11:38:41
Marco
Hallo Guenter,
ich habe Nepumuks Script jetzt auch aufgegriffen und habe es noch um Cut und Copy erweitert. Anbei meine Erweiterung falls Du diese auch benötigst.
VG
Marco
Script aus der Form:
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