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
Public Sub PasteText()
Tab2Mail.ActiveControl.Paste
End Sub
Public Sub CopyText()
Tab2Mail.ActiveControl.Copy
End Sub
Public Sub CutText()
Tab2Mail.ActiveControl.Cut
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen