|
いつも勉強させて頂き、大変助かっております。
A・B 2つのファイルを開き、Bでの作業中です
Cのファイルを開き BとCを上下に表示するマクロです
WinX Excel2007ではうまく開きますが、
Win8.1 Excel2013ではB・C 共に 上部に 縦サイズ0?状態になります。
******************
Sub 上下参照()
With ActiveWindow
.WindowState = xlNormal
.Top = 0
.Left = 0
.Height = Application.UsableHeight / 2
.Width = Application.UsableWidth
End With
Workbooks.Open Filename:=ThisWorkbook.Path & "C.xlsm"
With ActiveWindow
.WindowState = xlNormal
.Top = Application.UsableHeight / 2
.Left = 0
.Height = Application.UsableHeight / 2
.Width = Application.UsableWidth
End With
Application.ScreenUpdating = True
End Sub
*************************
あるサイトで下記を見つけたのですが、どのように反映すればよろしいのでしょうか、全く関係のない事でしょうか
宜しくご指導お願いします。
WinKey + Left - Arranges window in the half left of the screen
WinKey + Right - Arranges window in the half right of the screen
also, you can use:
WinKey + Down - Minimizes (or restores) a window
WinKey + Up - Maximizes a window
|
|