maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Sistema: eliminare il contenuto degli Appunti(Clipboard) di Windows(32/64 bit)

Sistema: eliminare il contenuto degli Appunti(Clipboard) di Windows(32/64 bit) - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Come eliminare il contenuto degli Appunti(Clipboard) di Windows, valido per sistemi operativi a 32 e 64 bit. In un modulo standard:

#If Win64 Then
    Public Declare PtrSafe Function _
        OpenClipboard Lib "user32" (ByVal hwnd As LongLong) As Long
    Public Declare PtrSafe Function _
        EmptyClipboard Lib "user32" () As Long
    Public Declare PtrSafe _
        Function CloseClipboard Lib "user32" () As Long
#Else
    Public Declare Function _
        OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
    Public Declare Function _
        EmptyClipboard Lib "user32" () As Long
    Public Declare Function _
        CloseClipboard Lib "user32" () As Long
#End If

Public Sub mVuotaClipboard()
    OpenClipboard (0&)
    EmptyClipboard
    CloseClipboard
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

Ultimo aggiornamento di questa pagina: 07/12/2010 - mauro gamberini