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 質問
【66871】Re:2つのファイルを割合指定で並べて表示 よろずや 10/10/13(水) 21:22 回答
【66874】Re:2つのファイルを割合指定で並べて表示 トコトコ 10/10/13(水) 22:37 お礼

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