IE(InternetExplorer)を起動する時、ウィンドウの位置・サイズを指定して起動するには、どのようなオプションをつければよいでしょうか。

回答の条件
  • URL必須
  • 1人1回まで
  • 登録:2006/10/11 00:05:01
  • 終了:2006/10/16 19:57:03

回答(4件)

id:KairuaAruika No.1

KairuaAruika回答回数6926ベストアンサー獲得回数972006/10/11 00:11:37

ポイント14pt

http://www.forest.impress.co.jp/lib/dktp/desktop/windowextn/size...

このようなものもあります。

後は,IEのショートカットを右クリック。

「プロパティ」ダイアログボックス内「実行時の大きさ」項目内で任意のものを選択すればOK。

id:crashtruck

ありがとうございます。

2006/10/11 09:12:37
id:junono No.2

junono回答回数695ベストアンサー獲得回数282006/10/11 00:15:24

ポイント16pt

IEは標準で終了時の位置と大きさを記憶していて、次回の起動時にはそれで開くはずですが、

http://www.atinfinity.net/software/iesize.html や

http://www.vector.co.jp/soft/win95/net/se321971.html

ソフトを利用するのが確実かと思います。

id:crashtruck

ありがとうございました。

2006/10/11 09:12:44
id:llusall No.3

llusall回答回数505ベストアンサー獲得回数612006/10/11 00:19:16

ポイント100pt

IE起動時のパラメータはこちらです。

ですが、ご希望とする、ウィンドウの位置・サイズを指定の指定はできません。


それらを実現するのであれば、WSH(VBScript)で起動するようにしたら良いかと思います。


7.3 ウィンドウの操作

こちらの、使用例 のスクリプトをメモ帳などのテキストエディタに貼り付けて、

sample.vbs 等のファイル名で保存してください。

ダブルクリックすると、指定の条件でIEが起動します。

id:crashtruck

ありがとうございます。最初のリンクが求めているものでした。VBScriptでなく、VB(2005)で実現する方法はないものでしょうか。

2006/10/11 09:13:43
id:KirakiraHikaru No.4

KirakiraHikaru回答回数354ベストアンサー獲得回数682006/10/12 21:12:43

ポイント100pt

VB2005で実現するには、

llusallさんの回答の「7.3 ウィンドウの操作」使用例の、

Option Explicit

の1箇所と、

WScript.Sleep(500)
WScript.Sleep(2000)

の2箇所を削除すれば動作します。


下記のような感じです。

        Private objIE As Object

Private Sub OpenIe()

        Dim intWidth As Integer
        Dim intHeight As Integer
        Dim intX As Integer
        Dim intY As Integer

        '初期設定(ウィンドウサイズ、表示位置に使用)
        intWidth = 320
        intHeight = 240
        intX = 200
        intY = 300

        'IEオブジェクトを作成します
        objIE = CreateObject("InternetExplorer.Application")

        'ウィンドウの大きさを変更します
        objIE.Width = intWidth
        objIE.Height = intHeight

        '表示位置を変更します
        objIE.Left = intX
        objIE.Top = intY

        'ステータスバーとツールバーを表示にします
        objIE.Statusbar = True
        objIE.AddressBar = True

        'インターネットエクスプローラ画面を表示します
        objIE.Visible = True
        
End Sub

Private Sub CloseIe()

        Try
            'インターネットエクスプローラを終了します
            objIE.Quit()

        Catch ex As Exception

        End Try

        'オブジェクトの破棄
        objIE = Nothing
        
End Sub

http://www.hatena.ne.jp/

id:crashtruck

返信が遅くなり大変失礼しました。できました!ありがとうございました。

2006/10/16 19:53:52

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません