Return to VBA Code Examples

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

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

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

Application.CutCopyMode = False

vba clear clipboard

ただし、これは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&)
End Function

Sub TestClipboardClear()
  Call ClearClipboard
End SUb

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(No installation required!)

Free Download

Return to VBA Code Examples