Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2622 / 13645 ツリー ←次へ | 前へ→

【66864】2つのファイルを割合指定で並べて表示 トコトコ 10/10/13(水) 17:00 質問[未読]
【66871】Re:2つのファイルを割合指定で並べて表示 よろずや 10/10/13(水) 21:22 回答[未読]
【66874】Re:2つのファイルを割合指定で並べて表示 トコトコ 10/10/13(水) 22:37 お礼[未読]

【66864】2つのファイルを割合指定で並べて表示
質問  トコトコ  - 10/10/13(水) 17:00 -

引用なし
パスワード
   初心者で、いつも拝見させて頂き助かっております。
トップメニューにファイルを開くボタンを作りました。
トップファイルのサイズはそのままで
aaaaa と bbbbb というファイルを開き、
この二つのファイルのみを上下 左右に並べて表示したいのです。
下記は 自分の19インチモニターに合わせてありますが、
どんなモニターにもいいように 7対3 の割合が理想です。
このような事は可能でしょうか?
よろしくお願いいたします。
'*****************************************************************
Sub 上下OPN()
Dim パス As String
Dim ファイル名 As String
Dim ファイル名2. As String
パス = ThisWorkbook.Path
ファイル名 = "aaaaa"
ファイル名2. = "bbbbb"


Workbooks.Open Filename:=パス & "\" & ファイル名2. & ".xlsm"
Workbooks.Open Filename:=パス & "\" & ファイル名 & ".xlsm"
Windows.Arrange ArrangeStyle:=xlHorizontal

Windows(ファイル名2. & ".xlsm").Activate
  With ActiveWindow
    .Top = 382
    .Width = 961.5
    .Height = 292.5
  End With
Windows(ファイル名 & ".xlsm").Activate
  With ActiveWindow
    .Width = 961.5
    .Height = 381
  End With
End Sub
'*****************************************************************

Sub 左右OPN()
Dim パス As String
Dim ファイル名 As String
Dim ファイル名2. As String
パス = ThisWorkbook.Path
ファイル名 = "aaaaa"
ファイル名2. = "bbbbb"


Workbooks.Open Filename:=パス & "\" & ファイル名2. & ".xlsm"
Workbooks.Open Filename:=パス & "\" & ファイル名 & ".xlsm"
Windows.Arrange ArrangeStyle:=xlVertical

Windows(ファイル名2. & ".xlsm").Activate
  With ActiveWindow
    .Top = 1
    .Left = 643
    
  End With
Windows(ファイル名 & ".xlsm").Activate
  With ActiveWindow
    .Width = 643.5
    .Height = 672.75
  End With
End Sub

【66871】Re:2つのファイルを割合指定で並べて表示
回答  よろずや  - 10/10/13(水) 21:22 -

引用なし
パスワード
   Windowを最大化すればサイズが分かりますので、
7:3の計算をすればよろしいかと。

【66874】Re:2つのファイルを割合指定で並べて表示
お礼  トコトコ  - 10/10/13(水) 22:37 -

引用なし
パスワード
   よろずや さん 有難うございました
以下で 試してみましたら 出ました。
助かりました<m(__)m>

MsgBox Application.UsableHeight & "×" & Application.UsableWidth

2622 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free