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

[koolsid]

Pete, I would love to see the source...

[koolsid]

Tested it with bmp. Works perfectly nice one pete

and thanks for the source...

[lenourien]

Hello, could I have the source please? I've been looking for something like this for a while. Many thanks in advance.

[lenourien]

I have a question: I tried it in powerpoint but I can't copy shapes.
If I use the native .copy from powerpoint then I can use the getdata from the dll without any problem. However, the setdata on shapes doesn't put anything in the clipboard and the error message is "wrong format". So if I can't use it to copy shapes to the clipboard, what type of objects can I copy with setdata???
Thank you.

[noclass1980]

Hi, this looks exactly like what i need, can you tell me how to register the dll and where to save it? many thanks in advance
David

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

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

[westconn1]

can you tell me how to register the dll

regsvr32 fullpath\clipboard.dll

[pr2-eugin]

regsvr32 fullpath\clipboard.dll

Hello, I am sorry to revive this dead thread, but I have used this DLL file on my application.. It works amazing on a 32-bit environment.. However some of my users are using a 64 bit version, in which I keep getting the error..

Error 429 : ActiveX Component can't create object.

I tried the following,

Public Sub SaveClip2Bit(savePath As String)
On Error GoTo errHandler
    Dim myClip As clipbrd.clipboard 
    'Dim myClip As Object
    Set myClip = New clipbrd.clipboard
    'Set myClip = CreateObject("clipbrd.clipboard")
    AltPrintScreen
    'Where AltPrintScreen is a Custom function to capture the active screen.. 
    SavePicture myClip.getData(vbCFBitmap), savePath
exitOnErr:
    Exit Sub
errHandler:
    Resume exitOnErr
End Sub

but no avail.. So I just wanted to know is there a 64 bit equivalent of the same? If not can I please see the VBA code?

Just to add more info, I have Registered the DLL (using Admin mode) under the C:/Windows/SysWOW64.. I have tried it several times.. I just cannot overcome this error.. Am I doing something wrong? I hope not, as it works great on 32-bit. Would appreciate any help.

[westconn1]

i will look into it shortly
i have only recently got w7 x64, so could not try out before

[pr2-eugin]

Thank you so much.. I really appreciate it.. Most of the code I found does not seem to work on the 64-bit environment.. A real pain with two different versions..

[mk8019]

Hi can you please provide the source code as my company policy will not allow me to use this library directly.Thanks

[pr2-eugin]

Hello Pete, I forgot to post my solution.. After much trial, I finally managed to crack it.. However I did not use the 'Clipboard.DLL'.. I had to create my own code, by using various resources found online I was able to achieve this..

@mk8019 : If you would like to see the solution, please refer to the thread located at Access World Forums - Print Screen Into Image File, where I have placed a working demo to help you understand..

[westconn1]

sorry i did not get back to you, i intended to find the source code, but so far have not looked for it at all

glad you managed to find some solution

[pr2-eugin]

That's okay Pete, but if you do find the code I would be happy to look at it.. Having a library function will look more neat.. Would appreciate if you could..