Excel VBA クリップボードをクリアする

Excel VBA クリップボードのクリア

Excel VBAでクリップボードをクリアするには、1行のコードだけで済みます。

Application.CutCopyMode = False

ただし、これはWindows標準のクリップボードとは異なります。 Windowsのクリップボードをクリアするには、EmptyClipboard関数を使用します。 以下のコードをコードモジュールにコピー＆ペーストして、SubTestClipboardClearを実行すると、Windowsのクリップボードがクリアされます。

Optioin Explicit

Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long

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

Sub TestClipboardClear()
  Call ClearClipboard
End SUb