bene , mi rispondo da solo,
stavolta la ricerca e' stata parecchio lunga , comunque potrebbe servire a qualcun'altro ,
il problema si risolve intercettando l'oggetto e copiandolo tramite l' oggetto IHTMLControlRange

setto il documento
e inizializzo il controlrange

dim doc as HTMLdocument
dim oCR As IHTMLControlRange
Set Doc = wb1.document
Set oCR = oHTMLDoc.body.createControlRange()

poi cancello la clipboard e aggiungo al controllo l'immagine ( tipo di dato IHTMLImgElement che mi sono trovato prima con qualcosa del tipo Doc.getElementsByTagName("IMG") )

Call Clipboard.Clear
Call oCR.Add(oImgEle)

e infine incollo nella picturebox

If (oCR.execCommand("copy")) Then
Set pctProva = Clipboard.GetData(ClipBoardConstants.vbCFBitmap)
End If


funziona benone