[[20220210103847]]　『デュアルディスプレイ表示用に適したサイズ固定は』（かおり）　ページの最後に飛ぶ

『デュアルディスプレイ表示用に適したサイズ固定はできますか？』（かおり）

こんにちは

UHDデュアルディスプレイを2台使って拡張モードでデジタルサイネージ的な使い方をしています。表示はエクセルで行っています。

エクセルを起動すると片方の画面で最大化されて表示します。
2画面を用いて表示させるために上のバー部分を右クリックして、サイズ変更を選び、出てくるクロスポインター？で2画面いっぱいとなるように設定していったん閉じます。

この状態で再度開くと左の画面で最大化となるので、上部のバーを少し右にずらすと2画面いっぱいになります。

しかし、なにか閉じる際に原因があるのか？、次回起動時に左画面最大化まではいいのですが、右側画面いっぱいまで広がらず、その都度設定しなければなりません。

そこで、質問は2画面拡張モードでエクセルを起動時した際のサイズを固定（指定）する方法が何かあれば教えていただきたく質問させていただきました。

よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：unknown ＞

前回、最後に閉じたexcelの表示範囲を記憶してて、ただ、その大きさで開いているだけではないのでしょうか。
（初心者） 2022/02/10(木) 12:30

 たぶんWindowsの標準機能では1画面に最大化するしかできなかったのでは
 窓の杜などのフリーソフトにそれに近いことをさせるものがあったような気がしますが
 自己責任になります
（なるへそ） 2022/02/10(木) 13:30

VBSで可能か試してみました。
アクティブなブックのウィンドウサイズを指定のサイズに変更します。

 Option Explicit
    Dim App
    Set App = GetObject(,"Excel.Application")
    With App.Windows(App.ActiveWorkbook.Name)
       MsgBox "W : " & .Width & " H : " & .Height
       .Width =800
       .Height =400
       MsgBox "W : " & .Width & " H : " & .Height
    End With

（tkit） 2022/02/10(木) 15:39

初心者様

　前回、何らかの理由で意図しないサイズとなってしまったと考えられるため、開く際には意図したサイズで開けたらと次第です。

なるへそ様
　調べたところ、古いOS用のは見つけることができました。

tkit様
　この記述をどのようにすればよいのか、もう少し教えていただけないでしょうか。
（かおり） 2022/02/10(木) 16:04

 ＞開く際には意図したサイズで開けたらと次第です

 一応、私の案は対象外ですかね。
 開いているアクティブブックを強制的にサイズ変更するので。

 興味がお有りでしたら、VBS で検索すれば、いろいろ出てきますので、
 どうすればいいかは分かりますよ。

（tkit） 2022/02/10(木) 16:34

 以下のマクロを ThisworkBookモジュールに仕込めば．．．
 普通にExcelを使うには、非常に迷惑なマクロです

 Private Sub Workbook_Open()
  With ThisWorkbook.Windows(1)
     .WindowState = xlMaximized
     w = .Width
     h = .Height
     .WindowState = xlNormal
     .Left = 0
     .Top = 0
     .Width = w * 2
     .Height = h
  End With
 End Sub
（´・ω・`） 2022/02/10(木) 17:01

 閉じるときに　Shift キーを押した状態で　× ボタンをクリックするのではだめですか？

（チオチモリン） 2022/02/11(金) 10:53

tkit様

VBS調べました。
試したところ、納得の動きをしてくれました。
ただ、MsgBoxがエクセルの裏に隠れてしまうので出なくてもよいのですが、
下記の2行を削除すればよいでしょうか？

       MsgBox "W : " & .Width & " H : " & .Height

       MsgBox "W : " & .Width & " H : " & .Height

´・ω・`様
　マクロの提示ありがとうございます。
これから動作確認してみます。

チオチモリン様

　意図せずサイズが変わってしまう原因は、このファイルを閉じる人が特定多数います。
またキーボードは離れているために赤外線マウスのみで運用していますので閉じる際にキーを使うことができないのです。
（かおり） 2022/02/14(月) 16:51

 ＞下記の2行を削除すればよいでしょうか？
 必要なければ、削除でいいでしょう。

 （´・ω・`）さんのコードにある、

      .WindowState = xlNormal
      .Left = 0
      .Top = 0

 も追加したほうがいいでしょう。

 あとは、スタートメニューやタスクバーにピン留めすれば、
 運用し易いのではないでしょうか。

（tkit） 2022/02/15(火) 09:31

tkit様

メッセージの2行を削除し、

  ＞   .WindowState = xlNormal
上記コードがあると、実行できないとメッセージが出ますのでこれも削除して

      .Left = 0
      .Top = 0　を追記

タスクバーにピン止めするとピンに合わせてからVBSを選ぶ2step操作になるので
各画面のの右下にアイコンを変更してわかりやすくしたショートカットを置いてみました。

エクセルのファイルはスタートメニューから自動で立ち上がりますので、
その後VBSをクリックするだけで希望通りのレイアウトとなり悩み解決しました。

ありがとうございました。
（かおり） 2022/02/16(水) 10:39

（´・ω・`）様
＞普通にExcelを使うには、非常に迷惑なマクロです

とありましたので、確認が一番最後になりましたが、

私共の環境では最適解であることが確認できました。

ログオンすれば手放しでOKだからです。

全画面表示で使っていますので、

2行目に

Application.DisplayFullScreen = True
を追記すれば、毎日らくちんになると確認しました。

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

（かおり） 2022/02/17(木) 14:04

コメント返信：

[ 一覧(最新更新順) ]

[[20220210103847]] 『デュアルディスプレイ表示用に適したサイズ固定は』（かおり） ページの最後に飛ぶ

[[20220210103847]]　『デュアルディスプレイ表示用に適したサイズ固定は』（かおり）　ページの最後に飛ぶ