clipboard activex for vba, vbs etc

[westconn1]

i am posting an activex dll to simplify the clipboard usage for vba or any script language without clipboard object

hope it may be useful to someone

usage add a reference or createobject("clipbrd.clipboard")
has same methods as vb6 clipboard object

.settext text : returns boolean, true on success
.gettext : returns string
.clear : returns boolean
.setdata object, format : format is optional clipboard format, returns boolean
.getdata(format) : returns object
format parameter is optional and should be a clipboard constant value

Constant Value Description
vbCFBitmap 2 Bitmap (.bmp files)
vbCFMetafile 3 Metafile (.wmf files)
vbCFDIB 8 Device-independent bitmap (DIB)
vbCFPalette 9 Color palette

Note the constants i copied from msdn may not all be correct, or are outdated, see
http://msdn.microsoft.com/en-us/library/ebwdx8yh.aspx


sample

Set myclip = CreateObject("clipbrd.clipboard")
SavePicture myclip.GetData(2), "C:\test\clippic.bmp"

to use unzip and register

vb6 source available if anyone wants