Microsoft Edgeでは複数のプロファイルを作成でき、それぞれにブックマーク・パスワード保存情報・印刷体裁・アドインなどの管理を行えることはご存じでしょうか？
プロファイルの作成方法はこちらをご確認ください。
Microsoft Edge でサインインして複数のプロファイルを作成する
今回は、Edgeで作成した複数のプロファイルを起動するショートカットを作成する方法をご紹介します。
edgeのショートカットを作成
まずはEdgeのインストールフォルダを開きます。
下記の値をエクスプローラーのアドレス欄に張り付けて移動しても開けます。
%ProgramFiles(x86)%\Microsoft\Edge\Application
以下のように開きましたね？
edgeのプログラムインストールフォルダを開いた画像です
msedge.exeを選択し、右クリックして送るメニューから”デスクトップ（ショートカットを作成）”を選択します。
edgeのプログラムインストールフォルダから右クリックしてショートカットを作成する画像です
edgeのショートカットプロパティを変更
Edgeのショートカットを作成後、右クリックしてプロパティを開きます。
edgeのプロパティ画像です
リンク先(T)の "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" の後ろに半角スペースを入れて、続けて下記の値を入れるとプロファイルを選択して起動できます。
--profile-directory="Profile 1"
edgeのプロパティを変更した後の画像です。
edgeのプロファイルフォルダ
Edgeのプロファイルフォルダはインストールフォルダとは別に格納されてあります。
こちらです。
"%LOCALAPPDATA%\Microsoft\Edge\User Data\"
edgeのプロファイルが格納されているフォルダ画像です
Edgeのプロファイルを確認するためのコマンドとbat
フォルダを開くとどれを選んだら良いかわからない方のためにコマンドとbatを用意しておきました。
Edgeプロファイルフォルダ確認コマンド単体です。
|
1 |
DIR "%LOCALAPPDATA%\Microsoft\Edge\User Data\" | FINDSTR /I PROFILE | FINDSTR /V /I GUEST |
Edgeプロファイルフォルダ確認batスクリプトです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
@ECHO OFF ECHO. ECHO. ECHO ▼プロファイルフォルダ ヲ カクニンシマス▼ ECHO. ECHO. DIR "%LOCALAPPDATA%\Microsoft\Edge\User Data\" | FINDSTR /I PROFILE | FINDSTR /V /I GUEST ECHO. ECHO. ECHO ▲プロファイルフォルダ ヲ カクニンシマシタ▲ ECHO. ECHO. ECHO. ECHO ------------------------------------------------------------ ECHO. ECHO ▼プロファイルショートカットの記入例（デフォルト） ECHO. ECHO "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" --profile-directory="Default" ECHO. ECHO. ECHO ▼プロファイルショートカットの記入例（プロファイル1） ECHO. ECHO "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe" --profile-directory="Profile 1" ECHO. ECHO. ECHO. ECHO. PAUSE |
VBAからEdgeプロファイルを指定して起動
VBAではダブルクォーテーションの持ち方に癖がありますが、ドライブ変更とフォルダ移動することでシンプルに考えることができます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Sub Edgeプロファイル1起動() Dim オブジェクト As Object Dim コマンド結果 As Integer Dim コマンドライン As String Set オブジェクト = CreateObject("WScript.Shell") ChDrive "C:" ChDir "C:\Program Files (x86)\Microsoft\Edge\Application\" コマンドライン = "msedge.exe --profile-directory=""Profile 1""" コマンド結果 = オブジェクト.Run(Command:="%ComSpec% /c " & コマンドライン, WindowStyle:=0, WaitOnReturn:=True) If コマンド結果 <> 0 Then MsgBox "Edgeを起動できませんでした" End If Set オブジェクト = Nothing End Sub |
著作権について
著作権は当サイトの管理者に帰属します。
商用利用以外であれば著作権フリーですが、念のためコメントにてお知らせください。
