화면크기 자동 조절하기

Step 1: 선택한 영역에 맞게 화면 확대하기

아래의 버튼을 클릭하고 범위를 지정해 보세요.

좀 아쉬운 부분이 있기는 하지만 그런대로 쓸만 하지요? 영역을 어떻게 지정했느냐에 따라 정확히 자신이 지정한 부분 이외의 영역이 표시될 수도 있을 것입니다. 이 부분에 대해서는 질문하지 마시기를… ^^

Step 2: AutoZoom 프로시저

Sub AutoZoom()
    Dim rngTarget As Range
    Dim Msg As String
    On Error GoTo ET
    Set rngTarget = Application.InputBox("대상 영역을 지정하세요", "영역 지정//By Exceller", _
        Type:=8, Default:="a1:e10")
    '//언제나 처럼 변수를 먼저 정의해 주었습니다. rngTarget 변수의 경우, InputBox 함수를
    '//통해 사용자가 마우스로 영역을 지정하도록 합니다.
    '//이 때 기본 (영역)값이 Default 값으로 표시되도록 해 두었습니다.

    rngTarget.Select
    ActiveWindow.Zoom = True
    '//선택된 영역에 대해 Zoom 속성을 True로 하면 화면 크기가 조절이 됩니다.

    Msg = Msg & "화면 크기에 맞게 조절되었지요?" & vbCr
    Msg = Msg & "다시 원래 상태로 되돌립니다"
    MsgBox Msg, , "작업 완료//By Exceller"
    ActiveWindow.Zoom = 100
    '//배율을 원래 상태로 되돌립니다.

    Range("a1").Select
ET:
End Sub

마무리

다음 시간에 또…

정리 — 화면 배율 조절 핵심

자주 묻는 질문 (FAQ)

마치며

ActiveWindow.Zoom 속성 하나로 선택한 영역에 맞게 화면 배율을 간단히 조절할 수 있습니다.