• ベストアンサー

VBAでスクリーンセーバータブで待ち時間を

XPを使っています。 デスクトップの何もない所で 右クリック→プロパティで画面のプロパティを呼び出し、 スクリーンセーバータブで待ち時間をVBAで指定したいのですが可能でしょうか? http://www.moug.net/tech/exvba/0150095.html を参考に、画面のプロパティを開くまではできましたが 「スクリーンセーバータブで待ち時間を指定」がわかりません。 ご教授よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.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

ICVYQICOL
質問者

お礼

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

関連するQ&A

  • 配列の値を置換するにはどうすればいいでしょう?

    http://www.moug.net/tech/exvba/0100022.htm を参考にして配列を含むVBAコードを作成しているのですが 例えば「○」を「●」に置換したい場合、 どうすればいいのでしょう? myMsg(0) = "区切り文字省略 : " & Join(Replace(myStr, "○", "●")) にしたら「型が一致しません」と言うエラーになります。 どなたかご教授よろしくお願いします。

  • スクリーンセーバーについて

     ウインドウズXPを使っています。スクリーンセーバーで「マイピクチャースライドショー」というのがあって、それに設定していました。しかし、いつの間にか設定できないようになっていました。デスクトップ上で右クリックしプロパティ選択後、スクリーンセーバータブをクリックします。スクリーンセーバーを選択する▼の中に「マイピクチャースライドショー」が出てきません。復旧する方法はないのでしょうか。 特に設定等を変更してないのに、突然消えてしまいました。お願いします。

  • エクセル:ユーザーフォーム

    いつもお世話になってます。 http://www.moug.net/tech/exvba/0090042.htm を参考にユーザーフォームを作っているのですが、 テキストボックスを増やしたり減らしたりしているうちに ”前へ”、”次へ”ボタンをクリックしたときに表示される項目が 正しく表示されなくなってしまいました。(セルがずれる) ControlSourceプロパティー設定?というのを良く理解してないのですが、 正しく表示させるようにするにはどうしたらいいでしょうか。

  • excel VBA オートシェイプのテキスト段落

    おはようございます。 【オートシェイプ内のテキスト行間を指定するプロパティ】 オートシェイプ内のテキスト行間を指定するプロパティはありますでしょうか? excel 2007で オートシェイプにテキストをいれた場合、 右クリックすると「段落」という項目がでてきて、 オートシェイプ内のテキストの行間を指定できたのですが、 オートシェイプ内のテキストの行間をVBAで指定することはできるのでしょか? (マクロを登録してもなにも記述されていないので、困っています。) 最終的にはアクティブブックの全シートのオートシェイプの行間を変更する VBAにしたいと思っています。 参考URL等あれば教えていただけませんでしょうか? よろしくお願いいたします。

  • rundll32.exeが応答しない

    大変こまっております。 OSはXPです。 デスクトップ画面で右クリックのプロパティで 「画面のプロパティ」が開きますが、そのタグの 中に「デスクトップ」というのがありますが、それを 開こうとクリックするとフリーズしてしまい、終了しようとすると「rundll32.exeが応答しない」というメッセージが出てきて、開くことができません。 ウィルスソフトで検索しても出てきません。すみません直し方教えてください。

  • プロパティが消えました

    質問させてください。 デスクトップで右クリックすると「プロパティ」と前まで出ていたんですが、でなくなりました。 パソコンの整理をしているときに何かを消してしまったのが、いきなり画面が大きくなり文字もアイコンも同じように大きくなってしまって。 ネットで直し方を調べたらそのプロパティが必要だと出ていたのです。 ですが、いくらデスクトップで右クリックしてもプロパティは出てきませんし、右往左往してしまっています。 どうしたらプロパティが復元できるか教えていただけたら幸いです。 Windows7を使用しています。 よろしくお願いします。

  • フォームのテキストボックスが空白なら移動させない

    ExcelのVBAで悩んでいます http://www.moug.net/tech/exvba/0090057.html こちらのサイト様に書いてあるものを、そのまま使ってまったく問題無く希望通りの事をしてくれるのですが、右上の×を押してユーザーフォームを閉じようとしても条件が当てはまる為かメッセージボックスが表示されてしまいます。 このメッセージボックスを表示させない方法はありませんでしょうか? 正直、上記サイト様の記述通りでなくても構いません。 フォームのプロパティを変更するだけでいいならそれだけでも構いません。 どうかお知恵をお貸し下さいませ

  • プロパティー画面になります。

    今まではデスクトップ画面からワンクリックでメールもIEも開いていたのですが、今朝から、クリックするとプロパティー画面が開きます。 右クリック→開くで使うことに問題はないのですが、なぜこんなことになったのかが知りたいです。できれば元どうりに戻したいのですが、 ご教授いただけませんでしょうか。

  • IEのショートカットに関して

    Xpで画面のプロパティ(デスクトップで右クリック→プロパティ)でデスクトップ(タブ) の下の「デスクトップのカスタマイズ」をクリックしInternetExplorer にチェックを入れてIEのアイコンをデスクトップに出したいのですが、”InternetExplorer”の項目がありません?どうすればこの項目を出す事が可能でしょうか?または、どうすればIEのショートカットを作る事ができますか?

  • メニュー画面の文字がつぶれる

    オフラインで、古いwindows98の機械を使用しています。 ソフトのインストール等の作業を行った後、windowsのメニュー画面の 文字が小さくなり、つぶれて表示されるようになってしまいました。 例:デスクトップで右クリック、プロパティのスクリーンセーバータブで、 「スクリーンセーバー(S)」というところと、選択するプルダウンの中身 どちらとも文字が変わってしまっています。 これらの箇所を元に戻すにはどうしたら良いでしょうか? 一応、インストールしたソフトをアンインストールしてみましたが駄目でした。 よろしくお願いいたします。

専門家に質問してみよう