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

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

masahiro yoshida

Last updated on 6月 1, 2022

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&)
  EmptyClipboard
  CloseClipboard
End Function

Sub TestClipboardClear()
  Call ClearClipboard
End SUb
vba-free-addin

VBAコード例アドイン

当サイトで紹介しているすべてのコード例に簡単にアクセス可能。

メニューから選択してクリックするだけで、コードがモジュールに直接挿入されます(.xlam アドイン)。

(インストール不要!)

無料ダウンロード

VBAコード例に戻る