|
初心者で、いつも拝見させて頂き助かっております。
トップメニューにファイルを開くボタンを作りました。
トップファイルのサイズはそのままで
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
|
|