问获取在线图像宽度和高度vba excel

EN

Sub extract()
    Dim IE As InternetExplorer
    Dim html As HTMLDocument

    Set IE = New InternetExplorerMedium
    IE.Visible = False
    IE.Navigate2 "https://www.google.com/images/srpr/logo11w.png"

    ' Wait while IE loading
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Set html = IE.document

    Dim webImage As Variant
    Set webImage = html.getElementsByTagName("img")

    'Debug.Print webImage(0).Width
    'Debug.Print webImage(0).Height

    MsgBox ("Image is " & webImage(0).Width & " x " & webImage(0).Height)

    'Cleanup
    IE.Quit
    Set IE = Nothing
End Sub