いつもお世話になっております。
エクセルを使ってIEのブラウザを立ち上げて
そのブラウザを最大化したいのですがうまくできません。
---------------------------------------------------------
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "USER32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Sub test()
Dim objIE As Object
Dim ieHwnd As Long
ieHwnd = FindWindow("IEFrame", vbNullString) 'IEのウィンドウハンドル取得
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.ocn.ne.jp/"
objIE.Visible = True
'意味なし
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
'意味なし
Application.Wait Time:=Now + TimeValue("00:00:01")
Call ShowWindow(ieHwnd, 3) '最大化
Set objIE = Nothing
End Sub
---------------------------------------------------------
をF5で実行するとブラウザは立ち上がりますが、最大化されません。
しかし、
Call ShowWindow(ieHwnd, 3) '最大化
の部分にブレークポイントを設置して、
一度止めてF5を押して実行すると、ちゃんと最大化されます。
きちんと最初から最後までF5で実行してブラウザを立ち上げ最大化したいのですが
どうすればいいでしょうか?
ご回答よろしくお願いします。
No.2ベストアンサー
- 回答日時:
No.1です。
お礼をいただきありがとうございます。
順番を前後させるだけではだめで、FindWindow をさらに後ろの.Visible = True のあとに持って行ったらうまくいったのですか。
当方の環境はWinXPSP3, Excel2003, IE6 という古いものなのですが、
順番を前後させるだけでうまくいきました。
ソフトウェアのバージョンの違いかもしれませんね。
FindWindow を .Visible = True のあとに持って行っても大丈夫だったので、このほうがより多くの環境で動作するということですね。
ともかく、うまく動作するようになったとのことで安心しました。
再度ご回答ありがとうございます。
OSやオフィスのバージョンなどによって違ってくるようですね。
バージョンが違うと自分で検証できないので、確認していただいてありがとうございました。
No.1
- 回答日時:
ieHwnd = FindWindow("IEFrame", vbNullString) 'IEのウィンドウハンドル取得
と
Set objIE = CreateObject("InternetExplorer.Application")
の位置が逆ではないでしょうか。
つまり、最大化したいウインドウを開いてからハンドルを取得するところかと思います。
付け加えると、当方にてWindows XP SP3, Excel2003, IE6で実験した範囲では、
Call ShowWindow(ieHwnd, 3) '最大化
のところにブレークポイントを設置してもしなくても結果は同じでした。
順番を前後させて
Set objIE = CreateObject("InternetExplorer.Application")
ieHwnd = FindWindow("IEFrame", vbNullString)
にしてみましたが、、大きくなりませんでした。
しかし、
objIE.Visible = True
ieHwnd = FindWindow("IEFrame", vbNullString)
なら大きくなりました!
ご回答ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAでIEを開いて最大化したい。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10 エクスプローラー表...
-
Excelのウィンドウが少し小さく、ズ...
-
VLCメディアプレイヤーでの拡大...
-
サクラエディタで、分割したウ...
-
UWSC 非アクティブウィンドウ...
-
ウィンドウの一番下が見られない
-
draftsight コマンドウィンドウ...
-
Google Chrome で画面が小さく...
-
非アクティブウインドウに連射...
-
入力した文字を電光掲示板のよ...
-
Adobe Premiere Pro CS6の件
-
AccessのFormの設定で、開いた...
-
Google Chrome 拡大縮小について
-
ウィンドウサイズの固定方法
-
Notesを起動すると「ウィンドウ...
-
Firefoxで、勝手にブラウザのウ...
-
画面のサイズを「元のサイズ」...
-
最小化からの再表示は? Photos...
-
SLEIPNIRでポインタを合わせる...
-
Google検索のトップ画面で、検...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10 エクスプローラー表...
-
VLCメディアプレイヤーでの拡大...
-
Excelのウィンドウが少し小さく、ズ...
-
AccessのFormの設定で、開いた...
-
UWSC 非アクティブウィンドウ...
-
サクラエディタで、分割したウ...
-
ウィンドウの一番下が見られない
-
Google Chrome で画面が小さく...
-
Access 起動時、ウィンドウを...
-
入力した文字を電光掲示板のよ...
-
ウィンドウの縮小拡大ができま...
-
新しいウィンドウで開くときウ...
-
draftsight コマンドウィンドウ...
-
リンクを『新しいウィンドウで...
-
インターネットエクスプローラ...
-
Google Chrome 拡大縮小について
-
最小化からの再表示は? Photos...
-
Notesを起動すると「ウィンドウ...
-
ウィンドウの強制アクティブ化...
-
画面のサイズを「元のサイズ」...
おすすめ情報