エビデンス取得マクロツール(スクリーンショットキー押すだけ) - Qiita

Declare Function OpenClipboard Lib "user32" (Optional ByVal hwnd As Long = 0) As Long Declare Function CloseClipboard Lib "user32" () As Long Declare Function EmptyClipboard Lib "user32" () As Long Public LOCALOFFSET As Long Sub AutoCapture() 'クリップボードを空にする。 OpenClipboard EmptyClipboard CloseClipboard MsgBox "AutoCaptureを開始します。" & vbNewLine & _ "①貼り付け開始位置にカーソルを置いて" & vbCr & _ "②貼り付け開始位置変える場合はリセットボタ

[kabacsharp]

これをもっと早く知っていたら、あのエビデンス地獄も(ﾉД`)