Klembord legen

Status
Niet open voor verdere reacties.

Verberkmoes

Verenigingslid
Lid geworden
26 feb 2002
Berichten
55
Ik wil af en toe tijdens het uitvoeren van de macro en in ieder geval aan het einde van de macro het klembord leegmaken.
Is hiervoor een VBA commando.?
Alvast bedankt voor de hulp.
Groeten,
Bert Verberkmoes
 
Bedankt!

Bedankt voor de reactie.
Ik heb het bekeken maar zie nog niet hoe ik dit eenvoudig in een bestaande macro in kan voegen.
Is het mogelijk een voorbeeldje te geven.
Alvast bedankt.
Groeten,
Bert
 
Plak dit in een module:

Code:
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Sub ClearClipboard()
    OpenClipboard 0&
    EmptyClipboard
    CloseClipboard
End Sub

En roep de procedure ClearClipboard aan in jouw macro.

Wigi
 
Alternatief

Code:
Sub klembord_leeg()
    Dim kl As Object
    
    Set kl = New DataObject
    kl.SetText ""
    kl.PutInClipboard
End Sub
 
Leuke code,

Alleen werkt hij bij mij niet :(
Ik krijg de fout code:
Code:
Compileerfout:
Een door de gebruiker gedefineerd gegevenstype is niet gedefineerd
OK HELP
Als ik op OK klik selecteerd hij "New DataObject"

Ik heb op internet al wat verder zitten te kijken maar ik krijg altijd een fout over die DataObject

Ik zit hier met Microsoft Office 2003 Access,
En heb de code geplakt in de "Globale code" bij "Modules"
en roep deze aan doormiddel van een knop,
Maar als ik de code in het Form zet bij "M$ Office Access Klassenobjecten"
Krijg ik de zelfde fout!

Het idee was eigenlijk om deze code te gaan gebruiken om andere gegevens in het clipboard te zetten, want het legen werkt wel met de code van Wigi
 
Zet in de VBEditor/Extra/verwijzingen de verwijzing naar Microsoft Forms 2.0 Object Library aan.
en gebruik dan

Code:
Sub leeg()
  With New DataObject
    .SetText ""
    .PutInClipboard
  End With
End Sub
 
Laatst bewerkt:
Thanks,
Na wat speurwerk naar de "Microsoft Forms 2.0 object library" die doormiddel van het "fm20.dll" toegevoegd kon worden werkt het nu perfect.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan