ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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.      .WindowState = xlNormal ' ¥ý±Nµ¡¤fÁÙ­ì
  8.      .Width = VWidth * (VWidth / 1960) * 0.75 ' Points (~ 0.75 pixels)
  9.      .Height = VHeight * (VHeight / 1080) * 0.75
  10.      .Left = 0
  11.      .Top = 0
  12. End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD