Dim TagName As String
Dim cols
Dim X, CtrlRangehtml = "<img border='0' src='" & PicF(Index).Tag & "' width='100%' height='100%'>"
With Frmmain.Web
     .Document.Open
     .Document.Write html
     .Document.Close
End WithFor Each X In Frmmain.Web.Document.All
    On Error Resume Next
    If X.TagName = "IMG" Then
       Clipboard.Clear
       Set CtrlRange = Frmmain.Web.Document.body.createControlRange()
       CtrlRange.Add (X)
       CtrlRange.execCommand ("Copy")
    End If
Next这个代码是复制图片到剪贴板,XP下可以,在2003下无效