如何在粘贴之前从剪贴板获取图片或嵌入式形状？

Question

我的vba应用程序出现问题。

我想知道在粘贴到Richtextbox或墨水编辑组件中之前，是否有可能检测并删除我从单词中复制的图片？

我的方法是：

• 我用文字（文字，图片等）复制需要的内容

• 我使用 Ctrl + V 操作

将其粘贴到用户表单上

• 这时，我想从剪贴板中删除图片，但保留文本

这甚至可能吗？谢谢！

Answer 1

尝试：

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

Sub EmptyClip()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Sub