Dim element AS MSHTML.IHTMLElement'抜けていた Dim idoc As MSHTML.HTMLDocument set idoc=webbrowser1.document For Each element In idoc.All.tags("IMG") debug.print element.src next