請問大家是否類似作業需求如下
特定EXCEL檔案開啟時固定視窗大小
因有一份特定的EXCEL (VBA) 為常開啟的檔案
但開啟時可能受到前一次EXCEL影響
一開啟就是最大化或前一次使用後視窗的大小
每次使用時必須重新調整到適用大小
想請問是否有方法可以固定此份XCEL (VBA) 視窗大小
與使用此EXCEL (VBA) 調出新生成之EXCEL檔案也能固定視窗大小
煩請有經驗或知道方法可以不吝賜教
謝謝
個人積分：24分
文章編號：82332143
個人積分：3057分
文章編號：82342153
全部的檔案都在Workbook_Open加入自訂的大小、位置
Private Sub Workbook_Open()
'Application.WindowState = xlMaximized
'Debug.Print Application.Width, Application.Height
Application.WindowState = xlNormal
Application.Width = 1000
Application.Height = 700
Application.Top = 100
Application.Left = 100
End Sub
二、想用vba開啟的檔案，不含vba
'程式碼放在主檔案內
Sub test()
Call Open_Other_xlsx("c:\test.xlsx", 100, 200, 400, 600)
'檔名+路徑, top,left,width,height
End Sub
Sub Open_Other_xlsx(File_Name As String, Apptop As Integer, Appleft As Integer, Appwidth As Integer, Appheight As Integer)
Dim app As Object, wb As Excel.Workbook
Set app = CreateObject("Excel.Application")
Set wb = app.Workbooks.Open(File_Name, , False)
app.Visible = True
app.WindowState = xlNormal
app.Width = Appwidth
app.Height = Appheight
app.Top = Apptop
app.Left = Appleft
End Sub
個人積分：24分
文章編號：82346368
