VBAでIEのインターネットオプション「画像を表示する」を切り替える

VBAでIEのインターネットオプション「画像を表示する」を切り替えしたいのですが、ご存知の方どのような記述になるかご教示いただけませんか？
（画像の場所）

https://www.vba-ie.net/

こちらに記載の内容はおおよそ把握しております。

EXCEL 2016
Windows 10
を使用しています。
よろしくお願いします。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2017/12/24 01:29

回答をすぐに付けるつもりが、思わぬパソコンのトラブルから、復旧まで、まる1日掛かってしまいました。

かなり昔に作ったマクロでしたので、現行のバージョン(11.0.49)で確かめてみました。
見事に画像がなくなり成功しました。(IEの設定を変えたら、今までの見ていたサイトは一旦閉じて再度開け直さないと、変化が分かりません。)

以下は、マクロがトグルなっていますから、画像が見える設定なら、見えない設定、見えなければ、反転して、見える設定になります。引数は、False の時には、値だけを、True の時は、設定を替えるようになっています。

''標準モジュールです。
Sub Main()
Dim ret As Variant
　 ret = IsIE_Image(True)　'False か何も入れなければ、値を取るだけです)
End Sub


Private Function IsIE_Image(Optional flg As Boolean)
Const IE_MAGE As String = "HKCU\Software\Microsoft\Internet Explorer\Main\"
Const DISPLAY_INL As String = "Display Inline Images"
Dim wsh As Object
Dim RegValue
Set wsh = CreateObject("WScript.Shell")
RegValue = wsh.RegRead(IE_MAGE & DISPLAY_INL)
If flg Then
　If StrComp(RegValue, "yes", 1) = 0 Then
　　wsh.RegWrite IE_MAGE & DISPLAY_INL, "no", "REG_SZ"
　ElseIf StrComp(RegValue, "no", 1) = 0 Then
　　wsh.RegWrite IE_MAGE & DISPLAY_INL, "yes", "REG_SZ"
　End If
End If
　RegValue = ""
　IsIE_Image = wsh.RegRead(IE_MAGE & DISPLAY_INL)
End Function

'//

余計な話かもしれませんが、
https://www.vba-ie.net/
私は、ここはいつも途中まで読んで、ゴチゴチャしてきて、最後まで読んだことがありません。（^^;

この回答へのお礼

できました。ありがとうございます！！

お礼日時：2017/12/27 23:57