- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 136
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-5
               
|
3#
發表於 2012-8-15 22:43
| 只看該作者
回復 2# bowwow1975 - Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
- Public Const SM_CXSCREEN = 0 '設置公共常數,取得螢幕解析度的X值
- Public Const SM_CYSCREEN = 1 '設置公共常數,取得螢幕解析度的Y值
複製代碼 這段程式碼應該放在一般模組內,因為公共常數只能放在一般模組
以下為Thisworkbook模組程式碼- Private Sub Workbook_Open()
- VWidth = GetSystemMetrics(SM_CXSCREEN) '取得螢幕解析度的X值
- VHeight = GetSystemMetrics(SM_CYSCREEN) '取得螢幕解析度的Y值
- With Excel.Application
- 'VWidth / 1960得到與原設計解析度X值的比例
- 'VWidth / 1080得到與原設計解析度Y值的比例
- .WindowState = xlNormal ' 先將窗口還原
- .Width = VWidth * (VWidth / 1960) * 0.75 ' Points (~ 0.75 pixels)
- .Height = VHeight * (VHeight / 1080) * 0.75
- .Left = 0
- .Top = 0
- End With
- End Sub
複製代碼 |
|