Excel VBA 클립보드 지우기

Excel VBA 클립보드 지우기

Excel VBA에서 클립보드를 지우려면 아래와 같이 한 줄의 코드만 있으면 됩니다:

Application.CutCopyMode = False

여기서 얘기하는 클립보드는 표준 Windows 클립보드와는 다릅니다. Windows 클립보드를 지우려면 EmptyClipboard 함수를 사용해야 합니다. 아래 코드를 복사하여 코드 모듈에 붙여넣고 Sub TestClipboardClear를 실행하여 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