Hi,
if I have a htmlimg object and I want to copy that to clipboard or to file how do I do that?
This is my code
if I have a htmlimg object and I want to copy that to clipboard or to file how do I do that?
This is my code
Code:
Public Function imgToFile(img As HTMLImg) As String
Dim ocr As IHTMLControlRange
Dim theFile As String
theFile = trim(CStr((GetTickCount Mod 100000))) + ".jpg"
Set ocr = img.Document.body.createControlRange
Clipboard.Clear
ocr.Add img
ocr.execCommand "Copy"
Call SavePicture(Clipboard.GetData(ClipBoardConstants.vbCFBitmap), theFile)
imgToFile = theFile
End Function