Steven이 통합 문서를 열어 최대화 한 다음 하나 이상의 추가 통합 문서를 열면 추가 통합 문서가 최대화 된 것처럼 보이지만 실제로는 그렇지 않습니다. 이러한 추가 통합 문서의 왼쪽, 아래쪽 및 오른쪽은 화면 가장자리에 있지만 인덱스 카드가 서로 오프셋되는 것처럼 위쪽이 아래쪽으로 계단식으로 배열됩니다. Steve에게는 추가 통합 문서가 창의 작은 부분으로 열리거나 완전히 최대화되어 창을 더 작은 크기로 “복원”할 수있는 것이 훨씬 나을 것입니다. 그는 이러한 추가 통합 문서가 열릴 때 창 크기를 제어하는 ​​설정이 있는지 궁금합니다.

매크로를 사용하면 통합 문서 창에서 일어나는 일에 쉽게 영향을 미칠 수 있습니다. 이 작업을 수행하는 일반적인 위치는 ThisWorkbook 개체의 이벤트 처리기 인 Workbook_Open 매크로에 있습니다. 다음은 창이 최대화되도록하는 매우 간단한 버전입니다.

Public Sub WorkBook_Open()

Application.WindowState = xlMaximized End Sub

그런 다음 원하는 경우 최대화 된 창의 크기를 수동으로 조정할 수 있습니다.

물론 다른 방식으로 창을 조작 할 수 있도록 매크로를 “구축”할 수도 있습니다. 예를 들어 다음은 통합 문서가 열리는 모니터의 최대 화면 크기를 결정한 다음 화면 너비의 72 %와 화면 높이의 96 %를 차지하도록 창 크기를 조정하는 매크로입니다.

Public Sub WorkBook_Open()

Dim iMaxWidth As Integer    'Screen width (pixels)

Dim iMaxHeight As Integer   'Screen height (pixels)

Dim sngStartX As Single     'Upper-left corner of desired window     Dim sngStartY As Single     'Upper-left corner of desired window     Dim sngWidth As Single      'Width of desired window     Dim sngHeight As Single     'Height of desired window

'Specifications for final window size     sngStartX = 0.14   'Fraction of screen width from left edge     sngStartY = 0.02   'Fraction of screen height from top     sngWidth = 0.72    'Fraction of screen width desired     sngHeight = 0.96   'Fraction of screen height desired

With Application         'Maximize screen in order to grab maximum width and height         .WindowState = xlMaximized         iMaxWidth = .Width         iMaxHeight = .Height         .WindowState = xlNormal

'Set final window position and size         .Top = iMaxHeight  sngStartY         .Left = iMaxWidth  sngStartX         .Width = sngWidth  iMaxWidth         .Height = sngHeight  iMaxHeight     End With End Sub

물론 두 변수 (sngWidth 및 sngHeight)의 설정을 조정하여 다른 최종 화면 크기를 선택할 수 있습니다. sngStartX 및 sngStartY 변수의 설정을 조정하여 최종 창의 왼쪽 상단 모서리 위치를 지정할 수도 있습니다.

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (4975)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.