※ ChatGPTを利用し、要約された質問です(原文:objIE 2個目のサイズが適用されません。)
VBAで二つのブラウザを立ち上げてサイズを変更する方法がわからない
このQ&Aのポイント
VBAを使用して二つのブラウザを立ち上げ、サイズを変更する方法がわかりません。エラーが発生しないため、なぜ2個目のサイズが適用されないのか疑問です。
VBAで複数のブラウザを開き、それぞれのサイズを変更したいです。しかし、2個目のブラウザのサイズが適用されず、エラーも表示されません。
VBAを使用して二つのブラウザを開き、それぞれのサイズを変更したいのですが、2個目のブラウザのサイズが正しく適用されません。エラーが発生しないため、なぜか原因がわかりません。
VBAです。
Dim objShell As Object
Dim objIE As New InternetExplorer
Const READYSTATE_COMPLETE As Long = 4
Sub test1()
Set objShell = CreateObject("Shell.Application")
objIE.Visible = True
objIE.Top = 0
objIE.Left = 0
objIE.Width = 100
objIE.Height = 100
objIE.navigate "http://www.goo.ne.jp/"
objIE.Navigate2 "http://www.goo.ne.jp/", 2048
Set objIE = Nothing
Set objShell = Nothing
Set objShell = CreateObject("Shell.Application")
objIE.Visible = True
objIE.navigate "http://www.goo.ne.jp/"
objIE.Navigate2 "http://www.goo.ne.jp/", 2048
'できない
objIE.Top = 20
objIE.Left = 20
objIE.Width = 100
objIE.Height = 100
Set objIE = Nothing
Set objShell = Nothing
End Sub
のように二つのブラウザを立ち上げて
サイズを変えたいのですが
2個目のサイズが適用されません。
エラーにもなりません。
なぜでしょうか?
お礼
回答頂きありがとうございました。