VBA 最大化する方法

これでFireFoxを起動できるのですが、このあと最大化する方法を教えてください。
Dim Ch As Variant
Set Ch = CreateObject("WScript.Shell")
Ch.Run ("FireFox.exe -url " & TargetURL)
Set Ch = Nothing

No.2 ベストアンサー 回答者： goomania 回答日時： 2021/03/20 12:13

正統派の手続きとしては、APIを使ってウィンドウハンドルを取得して、最大化するイベントを投げるということになるのではないかと思います。

ちょっとハードルが高いので、WORDが実装されていれば以下の方法も使えます。
FireFoxの起動後以下のサブルーチンを呼んでください。

Sub window_max()
Dim Wdapp As Object
Dim task As Object
Dim Flag As Integer
Set Wdapp = CreateObject("Word.Application")
Flag = 0
For Each task In Wdapp.Tasks
If task.Visible = True And InStr(task.Name, " Mozilla Firefox") > 0 Then
Flag = 1
task.Activate
task.WindowState = 1
End If
Next
If Flag = 0 Then MsgBox ("Mozilla Firefoxは起動していません")
Wdapp.Quit
Set Wdapp = Nothing
End Sub

この回答へのお礼

ありがとうございます。
ご呈示の方法でできました。

お礼日時：2021/03/20 22:19

No.1 回答者： fujillin 回答日時： 2021/03/19 21:48

こんばんは

やや中途半端ですけれど・・・

Runメソッドの第二引数に vbMaximizedFocus を与えると最大化するとあるのですが、試してみたところ、どうも上手くいかないようですね。

仕方がないので、表示するまで2～3秒待って（Waitメソッド等）から、直接
　Ch.SendKeys ("% X")
とすることで、最大化することは可能です。

・・・なんだか、イマイチな回答で申し訳ない。

この回答へのお礼

この方法でやっていたのですが、ウインドウから外れたところでクリックしてもからぶりで。。。。。

お礼日時：2021/03/20 22:21