ＩＥのブラウザを、任意のサイズで指定するには？

2023/10/24 13:22

このQ&Aのポイント

ＩＥのブラウザを任意のサイズで指定する方法について教えてください。
ＩＥのブラウザを開く際に、縦１０ｃｍ、横１０ｃｍのようなサイズを指定することはできるのでしょうか？
APIを使ってブラウザのサイズを指定する方法についても教えてください。

ベストアンサー

ＩＥのブラウザを、任意のサイズで指定するには？

2012/09/26 19:12

アクセスです。 Private Sub サンプル() Dim IE As Object Set IE = CreateObject("internetExplorer.application") IE.Visible = True IE.navigate ("D:\サンプル.txt") Set IE = Nothing End Sub で、ＩＥは開くのですが、ブラウザのサイズがバラバラです。縦１０ｃｍ、横１０ｃｍのようにサイズの指定はできますか？（単位はｃｍでなくても大丈夫です＾＾） http://okwave.jp/qa/q5503310.html を見ると、ＡＰＩを使うのかなーと思ったのですが、ＡＰＩの作り方はわからないのでご教授お願いします。

YSDTSAM
お礼率100% (34/34)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

toshi_2010
ベストアンサー率43% (25/57)

2012/09/26 21:10 回答No.1

こんな感じでどうでしょう Option Explicit Dim objIE Dim intWidth, intHeight Dim intX, intY intWidth = 320 '　幅 intHeight = 240 '　高さ intX = 200 '　位置Ｘ座標 intY = 300 '　位置Ｙ座標 Set objIE = CreateObject("InternetExplorer.Application") objIE.Width = intWidth '　ウィンドウ幅を変更 objIE.Height = intHeight '　ウィンドウ高さを変更 objIE.Left = intX '　表示位置Ｘ座標を変更 objIE.Top = intY '　位置位置Ｘ座標を変更 objIE.Statusbar = False '　ステータスバーを非表示 objIE.AddressBar = False '　ツールバーを非表示 objIE.Visible = True '　画面を表示

質問者

お礼 2012/09/27 20:21

おお！これです！すごいです！しかも表示させる座標まで！しかもアドレスバーなどの表示まで！求めてた以上のご回答を頂けて感激です。ありがとうございました。

関連するQ&A

VBAでIE操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか？圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか？
- ベストアンサー
- Visual Basic
複数のタブを開きたい　ＩＥ
IE９を使っています。画像のようにタブを二つ開くにはどうすればいいでしょうか？ Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub だと一つのタブしか開けません。 Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub にしても1つのタブしか開けないです。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
ＩＥではなくファイアフォックスを指定することは
ＶＢＡでブラウザを開く場合、ＩＥではなくファイアフォックスを指定することは可能ですか？既定のブラウザはＩＥにしています。 Sub test1() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www.ocn.ne.jp/" objIE.Visible = True Set objIE = Nothing End Sub の Set objIE = CreateObject("InternetExplorer.Application") の部分を Set objIE = CreateObject("firefox.exe") に変えてみたら、【ActiveX コンポーネントはオブジェクトを作成できません。(Error 429)】になりました。
- ベストアンサー
- Visual Basic
ie　６４bit　３２bit　どちらが開いてる？
Sub Sample() Dim objIE As InternetExplorer Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "http://www.yahoo.co.jp/" Set ObjIE = Nothing End Sub で、ｖｂａからｉｅを開いた場合、６４bit　３２bitのどちらで開かれるのでしょうか？私の環境はｗｉｎ７、IE9です。
- ベストアンサー
- オフィス系ソフト
objIE　　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個目のサイズが適用されません。エラーにもなりません。なぜでしょうか?
- ベストアンサー
- オフィス系ソフト
NavigateとNavigate2の違いは？
Sub Sample_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub Sub Sample_Navigate2() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate2 "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub 上記二つのサンプルをテストしてみましたが違いが判りません。 Navigate2のヘルプを見ようとしてもキーワードが見つかりません。が見つかりませんになってしまいます。この二つのメソッドの違いを教えていただけますか？オブジェクトブラウザの情報だと Navigateは Sub Navigate(URL As String, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file. Navigate2は Sub Navigate2(URL, [Flags], [TargetFrameName], [PostData], [Headers]) SHDocVw.InternetExplorer のメンバー Navigates to a URL or file or pidl. と書いてありました。引数の数は一緒でした。
- ベストアンサー
- オフィス系ソフト
ExcelVBAでIE画面データの取り込みかた
http://www.geocities.co.jp/SiliconValley-Bay/1992/excel/web.html このページの記述を見てYahoo!のページはとりこめました。ただ、新たにURLを指定してIEを立ち上げるのではなく、すでに開いているIE画面のデータを取りこむにはどのように直せばよいのでしょうか？ご教授ください。 Option Explicit Sub test() 　Dim ie As Object 　Dim x As Object 　Set ie = CreateObject("internetexplorer.application") 　Set ie = GetObject("", "InternetExplorer.application") 　ie.Visible = False 　ie.navigate ("http://www.yahoo.co.jp/") 　While ie.Busy Or ie.ReadyState <> 4: DoEvents: Wend 　Set x = New DataObject 　x.SetText ie.document.documentElement.innerText 　x.PutInClipboard 　ActiveSheet.PasteSpecial 　Set x = Nothing 　Set ie = Nothing End Sub
- ベストアンサー
- その他MS Office製品
VBScriptのIEでhttpにアクセスできない
VBScriptにてIEを操作しています。先日PCを新しくwin7のIE11にしたところおかしくなりました。 httpのサイトにアクセスするとDocumentCompleteが発生しません。というか最初のnavigateでは発生はしているようなのですが次のURLにnavigateした時発生せずreadystateは1のままです。 2度目のnavigateの挙動がおかしい気がします。ちなみにhttpsのサイトは問題ありませんでした。試しに以下のようなスクリプトを作成してみたところ Msgboxにて"http://www.yahoo.co.jp/"、"http://weather.yahoo.co.jp/weather/" の二つが表示されてしまいました、、、。画面上にはお天気ページのIEのみが起動（見えて）していてIEはQuitできていません。かなり困っています。 Option Explicit Dim ie Dim isReady Set ie = WScript.CreateObject("InternetExplorer.Application", "ie_") ie.Visible = True ie.Navigate "http://www.yahoo.co.jp/" Call wait ie.Navigate "http://weather.yahoo.co.jp/weather/" Call wait ie.Quit Set ie = Nothing msgbox "ok" Sub wait() Dim count: count = 0 isReady = False Do While isReady = False WScript.Sleep 100 count = count + 1 If count > 100 Then Call chkIe ie.Quit Set ie = Nothing WScript.Quit End If Loop End Sub Sub ie_DocumentComplete(ByVal pDisp, URL) If pDisp Is ie Then isReady = True End Sub Sub chkIe Dim fso Dim browse Dim pn Set fso = CreateObject("Scripting.FileSystemObject") For Each browse In CreateObject("Shell.Application").Windows pn = fso.GetFileName(browse.FullName) If LCase(pn) = "iexplore.exe" Then msgbox browse.LocationURL Next Set fso = Nothing End Sub ほかのWIN7、IE11のPCでは問題なく操作できています。この新しいPCのIEもデフォルトのままで特別な設定はしていません。どなたか何か心当たりがありましたらよろしくお願い致します。
- ベストアンサー
- Visual Basic
VBAからIEの操作
グーグルをIEで開いてVBA（語句）を検索して見終わったら IEを閉じる作業をしたいのですが、検索窓にVBA（語句）を入力するところでエラーとなります。初心者ですが、なんとか勉強したいのでよろしくお願いいたします。 Sub ie_test_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" IE.document.all.q.Value = "VBA" IE.document.all.btnG.Click If MsgBox("IEを閉じますか？", vbYesNo, "終了確認") = vbYes Then objIE.Quit End If Set objIE = Nothing End Sub
- 締切済み
- Visual Basic
二つ目のタブの情報をウォッチウインドウで確認するこ
一つのウインドウで二つのタブを開いたとき、二つ目のタブの情報をウォッチウインドウで確認することはできないのですか？例えば、 Sub Sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" objIE.Navigate2 "http://www.google.co.jp/", 2048 Set objIE = Nothing End Sub この状況でobjIEをウォッチウインドウで見た時に Set objIE = Nothingで処理を中断しても Navigate2で開いたhttp://www.google.co.jp/の情報はobjIEに格納されてないのでしょうか？ウォッチウインドウを見てもhttp://www.yahoo.co.jp/の情報しか見当たりません。
- ベストアンサー
- オフィス系ソフト