VBを使用して、IE起動時にウィンドウを最大化するには？

解決

---

VBS初心者です。
新しいウィンドウを表示する際に必ず最大化されたウィンドウを
表示したいのですが、うまくいきません。
色々探してみたのですが、ご存知の方お願いします

編集 削除

---

IEのオブジェクトを取得してのやり方なら分かります。

Private Sub Command1_Click()
   Dim objIE        As Object

   Screen.MousePointer = vbHourglass
   
   'IE Create Object
   Set objIE = CreateObject("InternetExplorer.application")

   'IE Option
   objIE.FullScreen = True  'メニューも全て無くした最大化になる
   objIE.ToolBar = True      'ToolBar On/Off
   objIE.MenuBar = True     'MenuBar On/Off

   'ホームページを表示
   Call objIE.Navigate("http://oku_newtype.tripod.co.jp/")
   
   Do While objIE.Busy
   Loop
   Screen.MousePointer = vbDefault
   
   'IE View
   objIE.Visible = True
End Sub

こんな感じでどうでしょう？

編集 削除

---

okuさんありがとうございました。
がんばってみます。

編集 削除

---

okuさんに教えていただいたものやってみたのですが、駄目でした。(T^T)
せっかく教えていただいたのに・・・すみませんでした。
結局表示する度に一瞬メニューが表示されるため見た目は悪いのですが、
sendkeyを使ってメニューを操作することにしました。

/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'画面の最大化・文字サイズを変更する
Dim WSHShell
Set WSHShell=CreateObject("WScript.Shell")
'画面の最大化をする
WSHShell.SendKeys "%(' ')X",True  'Alt+space+最大化(X)
'文字表示サイズを中にする
WSHShell.SendKeys "%VXM",True  'Alt+表示(V)+文字サイズ(X)+中(M)
/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_

インターネットオプションの社内イントラのセキュリティの「スクリプトを実行
しても安全だとマークされていないActiveコントロールの初期化とスクリプトの
実行」を「有効」にしてＯＫでした。

でもかなり無理やりなので、もし他にいい方法があれば・・・・是非教えてください。

編集 削除

---

メニューやツールバーも表示しないと言うことですか？
全画面表示はうまく行ってるんですか？
それなら各プロパディをFalsにすれば
   objIE.ToolBar = False      'ToolBar On/Off
   objIE.MenuBar = False     'MenuBar On/Off
メニューやツールバーも表示されなくなりますけど。

編集 削除

---

ｏｋｕさん
＞メニューやツールバーも表示しないと言うことですか？
と書いていただいたのは、私が「一瞬メニューが表示されるため・・・」と書いたからですね。
（私の書き方が悪かったようです。・・すみません(ーー;)）

メニューやツールバーは通常どおり表示します。
実際は、タイトルバー(Microsoft Internet Explorerと書かれているところ)から
マウスで最大化(X)、表示(V)+文字サイズ(X)+中(M)を選択させています。
新規画面を表示するとその動作が一瞬ですが画面に表示さるので見た目が良くないなぁ〜と思いまして・・・。

実は今度作成するものはメニューなどを表示させたくない・・・と要望が出ており、
今回のかきことても助かりました。ｏｋｕさん有難うございます。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。