引用：http://bbs.bccn.net/thread-118976-1-1.html
Private Sub Command1_Click()
web1.Silent = True
Dim CtrlRange, x
Dim ii As Long
ii = 0
For Each x In web1.Document.All
If x.TagName = "IMG" Then
Set CtrlRange = web1.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
SavePicture Clipboard.GetData, App.Path & "\" & ii & "pic.bmp"
ii = ii + 1
End If
Next
end sub
