アクセスデータベースから一連の写真をコピーしてディスクに保存する機能を使用しています。ただし、この関数はオフィスのクリップボードを使用しており、約 150 レコード後にクリップボードがいっぱいになり、プログラムがクラッシュします。クリップボードをクリアする方法は次のとおりです
Private Declare Function apiOpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long
Private Declare Function apiEmptyClipboard Lib "user32" Alias "EmptyClipboard" () As Long
Private Declare Function apiCloseClipboard Lib "user32" Alias "CloseClipboard" () As Long
Sub EmptyClipboard()
Call apiOpenClipboard(0&)
Call apiEmptyClipboard
Call apiCloseClipboard
End Sub
クリップボードをより効果的にクリアする方法を知っている人