Excel VBA – Limpiar Portapapeles

Excel VBA – Limpiar Portapapeles

Limpiar el portapapeles en Excel VBA sólo requiere una única línea de código:

Application.CutCopyMode = False

Sin embargo, esto es diferente del portapapeles estándar de Windows. Para borrar el portapapeles de Windows puede utilizar la función EmptyClipboard. Copie y pegue el siguiente código en un módulo de código y ejecute Sub TestClipboardClear para borrar el portapapeles de Windows.

Option Explicit

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

Public Function ClearClipboard()
  OpenClipboard (0&)
  EmptyClipboard
  CloseClipboard
End Function

Sub TestClipboardClear()
  Call ClearClipboard
End Sub