Edgeを非表示または最小化で実行するには。

Question

vbaからstartでEdgeにてコマンドを実行させたいのですが、
非表示または最小化で実行する方法は何かあるでしょうか。

Answer 1

このへんとかこのへんとかこのへんを参考に。
思いのほかめんどくさかった。もっといい方法あると思う。

Option Explicit

Private Declare Sub keybd_event Lib "user32.dll" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_LWIN = &H5B
 
Sub execedge()
    Dim edgeobj
    Set edgeobj = CreateObject("WScript.Shell")
    With edgeobj
        .Run "microsoft-edge:" & "https://www.google.com"
        Do
            .AppActivate ("Google")
            keybd_event VK_LWIN, 0, 0, 0
            keybd_event vbKeyDown, 0, 0, 0
            keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0
            keybd_event vbKeyDown, 0, KEYEVENTF_KEYUP, 0
            DoEvents
            keybd_event VK_LWIN, 0, 0, 0
            keybd_event vbKeyDown, 0, 0, 0
            keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0
            keybd_event vbKeyDown, 0, KEYEVENTF_KEYUP, 0
            Exit Do
            DoEvents
        Loop
    End With
    Set edgeobj = Nothing
End Sub

ここまで書いておきながらなんですが、最小化以外にももっとやりたいこと出てくるんじゃないの？と思うので私がやるならこちらを使いますけど。

Comments

[neru_yuki]

早速の返信ありがとうございます。
参照。ページこれから拝見させて頂ければと思います。
（セキュリティとか動作対象ソフトとか制約を確認させて頂きながら進めていこうと思います。）
ありがとうございました。

[neru_yuki]

助かりました。