WebBrowser上でマウスカーソルがあるリンク先を取得するには？ (ID:76357)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 とりあえず、Anchorオブジェクトを列挙するサンプルを示します。 もし、マウスの動作に追従させたいのであれば、 WithEvents変数にHTMLDocumentを割り当てておき、 そのonmouseoverイベント等を使えば良いと思います。 Option Explicit Private Sub Form_Load() WebBrowser1.Navigate2 "http://www.google.co.jp/" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim Anchor As Object ' For Each Anchor In pDisp.document.anchors ' Debug.Print "["; Anchor.innerText; "]", Anchor.href ' Next For Each Anchor In pDisp.document.getElementsByTagName("A") Debug.Print "["; Anchor.innerText; "]", Anchor.href Next End Sub