![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.1ベストアンサー
- 回答日時:
こんにちは。
通常の方法ではできません。
レジストリーから設定値を取得します。
下記は読込だけなので、レジストリーを破損する危険性はありません。
設定値の変更については、理解がないと危険なので記述しません。
古いバージョン Office ではオプション自体が存在しません。
環境がないので確認できませんが、Office2016 以降ぐらい?
Excel のバージョンで分岐処理するなど工夫して下さい。
Sub sampleProc()
'memo: RenderForMonitorDpi (REG_DWORD) 0 =無効 / 1 =有効
Const REG_SECTION As String = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Excel\Options"
Const REG_KEY As String = "RenderForMonitorDpi"
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
Dim result As Long
result = shell.RegRead(REG_SECTION & "\" & REG_KEY)
Set shell = Nothing
MsgBox IIf(result = 1, "[表示を優先した最適化]", "[互換性に対応した最適化]")
End Sub
早速のご回答大変ありがとうございました。
オプションの設定を変えてみて、正しく取得できていることを確認しました。
レジストリの取得は初めてでしたが、比較的シンプルで自分でも不安なく使えそうです。
バージョン部分はとりあえず「Application.Version」を埋め込んでみました。(これでよいのかは少し確認してみます。)
今回初めて「教えてgoo」を使わせていただきましたが、独力ではとてもたどり着なかったので、非常に助かりました。
誠にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロの付いたExcelが開けません 3 2023/02/01 10:54
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) Excel ヘルプの[ロック解除]、<c0>、</c0> の意味は何ですか? 1 2023/02/20 16:58
- モニター・ディスプレイ windows10 モニタに表示されなくなった 2 2023/08/04 16:58
- Excel(エクセル) [貼り付けオプション]とは? 3 2022/04/17 08:15
- Excel(エクセル) Excel起動時にエラーダイアログが表示される 3 2022/07/28 19:52
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Excel(エクセル) [条件付き書式]の設定順の変更は可能か? 4 2022/12/07 10:37
- Visual Basic(VBA) VBAでArrayListを使う為の「mscorlib.tlb」の参照設定について 3 2022/03/23 19:45
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでオプションが開けない
-
Google Mapで、都市高速は使わ...
-
nkf -mについて
-
リブレオフィスの予測表示の停...
-
[貼り付けオプション]とは?
-
エクセルVBA/フォームのオプシ...
-
WindowsNT オプションパックと...
-
Access2007で複数のチェックボ...
-
Twitterで名前変更した途端に下...
-
画像やオートシェイプの単位が...
-
ふりかけ定食。あったら頼みた...
-
MSアウトルックのアラーム音を...
-
オプション取引がゼロサムゲー...
-
家電購入と光同時加入割引について
-
一日信用取引でストップ高(ス...
-
指値の「寄指」「引指」「不成...
-
注文し株が取り消しできません...
-
「寄付指値」、「引け指値」、...
-
出合注文について
-
昨日117.750買い 今日の朝下落...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google Mapで、都市高速は使わ...
-
Excelでオプションが開けない
-
ふりかけ定食。あったら頼みた...
-
Access2007で複数のチェックボ...
-
日経225オプションの過去データ...
-
オプション取引がゼロサムゲー...
-
「Excelのオプション」の「ユー...
-
画像やオートシェイプの単位が...
-
nkf -mについて
-
AcsessでオプショングループをN...
-
[Google カレンダー] 定期的な...
-
エクセルVBA/フォームのオプシ...
-
リブレオフィスの予測表示の停...
-
テザリングしたいけど、いつも...
-
ガンマロングの意味
-
outlookの予定表を最初に開きたい
-
MSアウトルックのアラーム音を...
-
楽天モバイル UN LIMTVI(アン...
-
au光の料金下げる事って出来ま...
-
BTOオプションって何ですか?
おすすめ情報