AW: Clipboard
13.02.2006 08:41:44
WernerB.
Hallo Udo,
zum Löschen der Zwischenablage kann ich Dir diese drei Alternativen anbieten (aus dem Forum - also nicht auf meinem Mist gewachsen):
Sub ZwischenAblageLeeren1()
Application.CutCopyMode = False
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Unter Extras, Verweise muss dieser Verweis gesetzt werden:
'"Microsoft Forms 2.0 Object Library"
Sub ZwischenAblageLeeren2()
Dim NeuData As DataObject
Set NeuData = New DataObject
NeuData.SetText ""
NeuData.PutInClipboard
Set NeuData = Nothing
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Declare _
Function EmptyClipboard Lib "user32" () As Long
Private Declare _
Function OpenClipboard _
Lib "user32" (ByVal hwnd As Long) As Long
Private Declare _
Function CloseClipboard Lib "user32" () As Long
Sub ZwischenAblageLeeren3()
OpenClipboard (0)
EmptyClipboard
CloseClipboard
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !