Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15349 / 76734

←次へ　｜　前へ→


	【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

0 hits

▼

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

≪