Hi All,
I need to paste an image to Excel and when I do it pastes each of the objects that make up the image, but I only want the image. In the special paste I have HTML, Unicode Text, and Text, what I need is image.
The following is the code that is working just the ActiveSheet.Paste needs to be ActiveSheet.SpecialPaste.Image or something like that.
Any pointes?
BMD
I need to paste an image to Excel and when I do it pastes each of the objects that make up the image, but I only want the image. In the special paste I have HTML, Unicode Text, and Text, what I need is image.
The following is the code that is working just the ActiveSheet.Paste needs to be ActiveSheet.SpecialPaste.Image or something like that.
Code:
HTMLDiv("AppMessageEditCheckControl", tpAttachNoWait).Attach
HTMLBrowser("Caption='.NET ProMerit Dev Client'").Attach
HTMLDiv("AppMessageEditCheckControl").MouseDown 1, 1
w = HTMLDiv("AppMessageEditCheckControl").Width - 1
h = HTMLDiv("AppMessageEditCheckControl").Height - 30
HTMLDiv("AppMessageEditCheckControl").MouseUp w, h
HTMLDiv("AppMessageEditCheckControl").Attach
HTMLDiv.Type "{Ctrl C}"
R = R + 2
writeExcel R, 1, "Results Image"
Range("A" & R + 1).Select
ActiveSheet.Paste
'BOTTOM
X = 0
Window("Net ProMerit").Attach
BMD