Windows剪贴板，使用MS Forms数据对象存储映像 - VBA

Question

我想使用VBA将图像放在Windows剪贴板上。我目前使用MS Forms 2.0库中的DataObject基本上按照here描述的文本执行此操作。

我想使用图像文件做同样的事情，将图像放在剪贴板上而不是文本。

我用于文本的工作代码如下，我尝试使用图像文件路径作为变量，但只存储文本。还尝试了＃34; SetImage＆＃34;作为一种方法，但如下所示抛出错误。

Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject

DataObj.SetText str1   <--------------- works for string variable
DataObj.SetImage strImageFilePath <----------- Error Method not available

DataObj.PutInClipboard