WebBrowserコントロールでテーブルのセルを追するとエラーになる (ID:92169)

名前

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

本文 VB6(SP6) NT4.0(SP5) IE5.5 http://www.microsoft.com/japan/msdn/columns/dude/dude050399.asp ↑ここを参考にして、コマンドボタンを押すとテーブルのセルを 追加していくプログラムを作っているのですが、下のコードでは 2つめのinsertbeforeで「引数が無効です」というエラーが出て しまいます。 2番目の引数に変数を使わず、WebBrowser1.Document.activeElementと すると、なぜかうまくいきます。 なぜ、変数に入れるとうまくいかないのでしょうか？ ちなみに変数の型をVariant型にしても同じでした。 Private Sub Command4_Click() Dim objActiveElement As Object Dim r As Object Dim c As Object Dim nc As Object Dim txt As Object Set objActiveElement = WebBrowser1.Document.activeElement If objActiveElement.tagName = "TD" Then Set r = objActiveElement.parentElement Set c = objActiveElement Set nc = WebBrowser1.Document.createElement("TD") Set txt = WebBrowser1.Document.createTextNode("New Cell") nc.insertBefore txt r.insertBefore nc, c '←ここで「引数が無効です」のエラーになる 'r.insertBefore nc, objActiveElement '←こうしても「引数が無効です」のエラーになる 'r.insertBefore nc, WebBrowser1.Document.activeElement 'こうするとエラーにならない End If End Sub