[發問] 視窗解析度的問題

bowwow1975

1. Private Sub Workbook_Open()
   
2.      SetXLResolution
   
3. End Sub
   
4. 
   
5. 
   
6. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
7. Public Const SM_CXSCREEN = 0
   
8. Public Const SM_CYSCREEN = 1
   
9. 
   
10. 
    
11. Sub SetXLResolution()
    
12. Dim VWidth As Integer
    
13. Dim VHeight As Integer
    
14. ' 高寬自動設為螢幕大小的 80%
    
15. VWidth = GetSystemMetrics(SM_CXSCREEN)
    
16. VHeight = GetSystemMetrics(SM_CYSCREEN)
    
17. 
    
18. With Excel.Application
    
19.      .WindowState = xlNormal ' 先將窗口還原
    
20.      .Width = VWidth * 0.8 * 0.75 ' Points (~ 0.75 pixels)
    
21.      .Height = VHeight * 0.8 * 0.75
    
22.      .Left = VWidth * 0.1 * 0.75
    
23.      .Top = VHeight * 0.1 * 0.75
    
24. End With
    
25. End Sub

複製代碼

某網站的一篇文章！
http://www.officefans.net/cdb/viewthread.php?tid=76420

但是有兩個問題
VBA 不讓

1. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
2. Public Const SM_CXSCREEN = 0
   
3. Public Const SM_CYSCREEN = 1

複製代碼

這一段放在 End 後面！
就連 Workbook_open 也說錯誤！

最前面那一段 code 是放在 thisworkbook 沒有錯吧！

bowwow1975

不好意思，我解釋清楚一點
有兩個點：
第一、我開啟 Excel 的時候，因為內建背景圖，但我是用 1920x1080 設計的，但是換一台電腦就會螢幕太大！
第二、同樣的事情也發生在表單~~~~

這兩個視窗大小可以依據使用者的解析度做調整嗎？

Hsieh

回復 2# bowwow1975

1. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
2. Public Const SM_CXSCREEN = 0  '設置公共常數，取得螢幕解析度的X值
   
3. Public Const SM_CYSCREEN = 1  '設置公共常數，取得螢幕解析度的Y值

複製代碼

這段程式碼應該放在一般模組內，因為公共常數只能放在一般模組
以下為Thisworkbook模組程式碼

1. Private Sub Workbook_Open()
   
2. VWidth = GetSystemMetrics(SM_CXSCREEN) '取得螢幕解析度的X值
   
3. VHeight = GetSystemMetrics(SM_CYSCREEN) '取得螢幕解析度的Y值
   
4. With Excel.Application
   
5. 'VWidth / 1960得到與原設計解析度X值的比例
   
6. 'VWidth / 1080得到與原設計解析度Y值的比例
   
7. 
   
8.      .WindowState = xlNormal ' 先將窗口還原
   
9.      .Width = VWidth * (VWidth / 1960) * 0.75 ' Points (~ 0.75 pixels)
   
10.      .Height = VHeight * (VHeight / 1080) * 0.75
    
11.      .Left = 0
    
12.      .Top = 0
    
13. End With
    
14. End Sub

複製代碼

bowwow1975

系統說沒有定義這個 Sub 或 Function.

我是點擊 Thisworkbook 插入模組，然後在 Module1 填寫上面那一段！

bowwow1975

好像是指 GetSystemMetrics 這個定義？

如果不行的話，可能就得全部改成 800x600 的，至少大家都可以用！

bowwow1975

試著改成這樣也不行！

1. Private Sub Workbook_Open()
   
2. SetXLResolution
   
3. End Sub
   
4. Sub SetXLResolution()
   
5. Dim VWidth As Integer
   
6. Dim VHeight As Integer
   
7. VWidth = GetSystemMetrics(SM_CXSCREEN) '取得螢幕解析度的X值
   
8. VHeight = GetSystemMetrics(SM_CYSCREEN) '取得螢幕解析度的Y值
   
9. With Excel.Application
   
10. 'VWidth / 1960得到與原設計解析度X值的比例
    
11. 'VWidth / 1080得到與原設計解析度Y值的比例
    
12. 
    
13.      .WindowState = xlNormal ' 先將窗口還原
    
14.      .Width = VWidth * (VWidth / 1960) * 0.75 ' Points (~ 0.75 pixels)
    
15.      .Height = VHeight * (VHeight / 1080) * 0.75
    
16.      .Left = 0
    
17.      .Top = 0
    
18. End With
    
19. End Sub

複製代碼

white945

回復 5# bowwow1975

下載 (102.92 KB)

2012-8-16 09:52

bowwow1975

感謝~~~ It is work now！

雖然原始碼的結果和我想的不一樣！
表單還是一樣大，Excel 只是更改視窗大小，內容還是一樣超出視窗！！

不過已經讓我學到一些東西了，感謝各位大大幫忙！