Hsieh

¦^´_ 2# bowwow1975

1. Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
   
2. Public Const SM_CXSCREEN = 0  '³]¸m¤½¦@±`¼Æ¡A¨ú±o¿Ã¹õ¸ÑªR«×ªºX­È
   
3. Public Const SM_CYSCREEN = 1  '³]¸m¤½¦@±`¼Æ¡A¨ú±o¿Ã¹õ¸ÑªR«×ªºY­È

½Æ»s¥N½X

³o¬qµ{¦¡½XÀ³¸Ó©ñ¦b¤@¯ë¼Ò²Õ¤º¡A¦]¬°¤½¦@±`¼Æ¥u¯à©ñ¦b¤@¯ë¼Ò²Õ
¥H¤U¬°Thisworkbook¼Ò²Õµ{¦¡½X

1. Private Sub Workbook_Open()
   
2. VWidth = GetSystemMetrics(SM_CXSCREEN) '¨ú±o¿Ã¹õ¸ÑªR«×ªºX­È
   
3. VHeight = GetSystemMetrics(SM_CYSCREEN) '¨ú±o¿Ã¹õ¸ÑªR«×ªºY­È
   
4. With Excel.Application
   
5. 'VWidth / 1960±o¨ì»P­ì³]­p¸ÑªR«×X­Èªº¤ñ¨Ò
   
6. 'VWidth / 1080±o¨ì»P­ì³]­p¸ÑªR«×Y­Èªº¤ñ¨Ò
   
7. 
   
8.      .WindowState = xlNormal ' ¥ý±Nµ¡¤fÁÙ­ì
   
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

½Æ»s¥N½X