如何將HTML插入到Excel中

Question

我在網站上有一個隨時間變化的地圖（交互式），我想將它插入到Excel表格中。

我使用這個代碼，但它不顯示HTML：

Private Sub Mapit() 
URL = Sheets("sheet1").Cells(1, 1) //Here there is written the link to the website that want to show on excel 
Sheets("sheet1").Pictures.Insert(URL).Select End Sub 

這可能嗎？我猜這是Sheets（「sheet1」）。 圖片。插入（URL）。選擇是問題，但我無法找到哪個方法是正確的。

謝謝你的時間

Answer 1

試試這個。你幾乎在那裏。無需.Select

Sub Mapit() 

    Dim URL As String 
    URL = "https://www.google.com/images/srpr/logo9w.png" 
    ActiveSheet.Pictures.Insert (URL) 

End Sub 

Private Sub Mapit() 

    Dim URL As String 
    URL = Sheets("sheet1").Cells(1, 1) 

    ThisWorkbook.Activate 
    ThisWorkbook.Sheets("sheet1").Select 
    Sheets("sheet1").Pictures.Insert (URL) 

End Sub 

意見後更新時間：

插入用戶窗體>轉到工具箱>其他控件> 選擇Microsoft Web瀏覽> OK

拖動控制到用戶表單

現在用戶窗體上粘貼如下代碼

Private Sub UserForm_Initialize() 
    Me.WebBrowser1.Navigate ("www.google.com") 
End Sub