How to save a ole object from the clipboard? (Do Ctlr+V)

[peterfarge]

Hello Forum,

my workbook uses an external dll. I want to include within my workbook.
I have added it with Insert->Object->FromFile on a worksheet. My
problem is how to save it to harddisk.
If a make Ctrl+V the dll would be saved. But how can I do this per Api?

This is the code that creates the ole Object:
Dim oOle As OLEObjects
Dim o As OLEObject

Set oOle = ThisWorkbook.Worksheets(1).OLEObjects
Set o = oOle.Add(, "H:\Pers\SharpDevelop\Hello\Hello.dll", False,
False)
o.Verb xlOpen ' Opens the old Win3.11 Editor
o.Copy ' Copies it to the clipboard, now I can place the dll with
Ctrl+V to the desktop.



Best wishes

Peter

 

[peterfarge]

I'm writing the cipboard data as a byte array to hd. Task is done.