[µo°Ý] µøµ¡¸ÑªR«×ªº°ÝÃD

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. ' °ª¼e¦Û°Ê³]¬°¿Ã¹õ¤j¤pªº 80%
    
15. VWidth = GetSystemMetrics(SM_CXSCREEN)
    
16. VHeight = GetSystemMetrics(SM_CYSCREEN)
    
17. 
    
18. With Excel.Application
    
19.      .WindowState = xlNormal ' ¥ý±Nµ¡¤fÁÙ­ì
    
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

½Æ»s¥N½X

¬Yºô¯¸ªº¤@½g¤å³¹¡I
http://www.officefans.net/cdb/viewthread.php?tid=76420

¦ý¬O¦³¨â­Ó°ÝÃD
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

½Æ»s¥N½X

³o¤@¬q©ñ¦b End «á­±¡I
´N³s Workbook_open ¤]»¡¿ù»~¡I

³Ì«e­±¨º¤@¬q code ¬O©ñ¦b thisworkbook ¨S¦³¿ù§a¡I

bowwow1975

·PÁÂ~~~ It is work now¡I

ÁöµM­ì©l½Xªºµ²ªG©M§Ú·Qªº¤£¤@¼Ë¡I
ªí³æÁÙ¬O¤@¼Ë¤j¡AExcel ¥u¬O§ó§ïµøµ¡¤j¤p¡A¤º®eÁÙ¬O¤@¼Ë¶W¥Xµøµ¡¡I¡I

¤£¹L¤w¸gÅý§Ú¾Ç¨ì¤@¨ÇªF¦è¤F¡A·PÁ¦U¦ì¤j¤jÀ°¦£¡I

white945

¦^´_ 5# bowwow1975

¤U¸ü (102.92 KB)

2012-8-16 09:52

bowwow1975

¸ÕµÛ§ï¦¨³o¼Ë¤]¤£¦æ¡I

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

½Æ»s¥N½X

bowwow1975

¦n¹³¬O«ü GetSystemMetrics ³o­Ó©w¸q¡H

¦pªG¤£¦æªº¸Ü¡A¥i¯à´N±o¥þ³¡§ï¦¨ 800x600 ªº¡A¦Ü¤Ö¤j®a³£¥i¥H¥Î¡I

bowwow1975

¨t²Î»¡¨S¦³©w¸q³o­Ó Sub ©Î Function.

§Ú¬OÂIÀ» Thisworkbook ´¡¤J¼Ò²Õ¡AµM«á¦b Module1 ¶ñ¼g¤W­±¨º¤@¬q¡I

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

bowwow1975

¤£¦n·N«ä¡A§Ú¸ÑÄÀ²M·¡¤@ÂI
¦³¨â­ÓÂI¡G
²Ä¤@¡B§Ú¶}±Ò Excel ªº®É­Ô¡A¦]¬°¤º«Ø­I´º¹Ï¡A¦ý§Ú¬O¥Î 1920x1080 ³]­pªº¡A¦ý¬O´«¤@¥x¹q¸£´N·|¿Ã¹õ¤Ó¤j¡I
²Ä¤G¡B¦P¼Ëªº¨Æ±¡¤]µo¥Í¦bªí³æ~~~~

³o¨â­Óµøµ¡¤j¤p¥i¥H¨Ì¾Ú¨Ï¥ÎªÌªº¸ÑªR«×°µ½Õ¾ã¶Ü¡H