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はなんで先頭の0を消すん...
-
Excel元に戻す方法を教えてくだ...
-
Excelが固まってしまった。
-
エクセルで特定の範囲内から小...
-
Excel 2019 のピボットテーブル...
-
テレビを購入してYouTubeのボタ...
-
Excel2013のF6キー操作について
-
西暦や和暦の表示をyyyymmdd表...
-
【関数】スペースがいくつ入っ...
-
【Microsoft Office Excel Comp...
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excelのセルを飛ばして入力する
-
MOS365 Excel Expert / Excel R...
-
エクセルで指定した日付、店舗...
-
4つのパターンを表示するEXACT...
-
スマートな関数を教えて下さい。
-
【Excel】セル内の時間帯が特定...
-
Excel初心者です。 詳しい方、...
-
Excelで全角を半角にしたいので...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでオプションが開けない
-
Google Mapで、都市高速は使わ...
-
画像やオートシェイプの単位が...
-
「Excelのオプション」の「ユー...
-
Access2007で複数のチェックボ...
-
エクセルVBA/フォームのオプシ...
-
[Google カレンダー] 定期的な...
-
日経225オプションの過去データ...
-
エクセルVBAマクロのオプシ...
-
outlookの予定表を最初に開きたい
-
リブレオフィスの予測表示の停...
-
[貼り付けオプション]とは?
-
AcsessでオプショングループをN...
-
オプションボタンの三択(アク...
-
エクセル2000 ファイルを開く...
-
[オートフィル オプション]アイ...
-
Excel2002 エラースマートタグ...
-
バイナリーオプションで200万円...
-
WindowsNT オプションパックと...
-
日経225オプションの時系列データ
おすすめ情報