ＶＢＡでスクリーンセーバータブで待ち時間を

質問

ＸＰを使っています。
デスクトップの何もない所で
右クリック→プロパティで画面のプロパティを呼び出し、
スクリーンセーバータブで待ち時間をＶＢＡで指定したいのですが可能でしょうか？

http://www.moug.net/tech/exvba/0150095.html
を参考に、画面のプロパティを開くまではできましたが
「スクリーンセーバータブで待ち時間を指定」がわかりません。

ご教授よろしくお願いします。

回答No.1

nicotinism · ベストアンサー

レジストリを直接書き換えてはいけませんか？
WindowsXP (SP3) & Excel2002 で試してみました。
スクリーンセーバー起動まで600秒になります。
※状況（ユーザーの権限など）によっては使えないかもしれません。

Sub regChg()
Dim wSh As Object
Dim oldVal As String
Set wSh = CreateObject("WScript.Shell")

oldVal = wSh.RegRead("HKCU\Control Panel\Desktop\\ScreenSaveTimeOut")
MsgBox "いままでは " & oldVal
wSh.RegWrite "HKCU\Control Panel\Desktop\ScreenSaveTimeOut", "600", "REG_SZ"
MsgBox "これからは " & wSh.RegRead("HKCU\Control Panel\Desktop\\ScreenSaveTimeOut")
Set wSh = Nothing
End Sub

お礼

ありがとうございました。