Как получить картинки или встроенные фигуры из буфера обмена прямо перед вставкой?

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