プロが教えるわが家の防犯対策術!

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

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

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

A 回答 (1件)

レジストリを直接書き換えてはいけませんか?


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
    • good
    • 0
この回答へのお礼

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

お礼日時:2012/10/20 00:11

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!