정의된 확대/축소 수준에서 모든 Excel 시트 설정

정의된 확대/축소 수준에서 모든 Excel 시트 설정

엑셀 워크북(파일)에 20장 이상 있습니다.모든 시트를 85% 확대/축소 수준으로 재설정할 수 있도록 적용/사용할 수 있는 코드 조각이나 명령이 있습니까?

Sub SetZoom()
    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Select
        ActiveWindow.Zoom = 85 ' change as per your requirements
    Next ws
End Sub

참고로, 탭을 사용하여 워크북의 모든 워크시트를 선택하기만 하면 확대/축소를 85%로 설정할 수 있습니다. 그러면 확대/축소가 모든 워크시트에 적용됩니다.

Sub SetZoom()

Dim ws As Worksheet
Application.ScreenUpdating = False    'Optional
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
    ActiveWindow.Zoom = 85
Next
Application.ScreenUpdating = True

End Sub

이 코드는 위의 코드와 유사하지만 매크로를 실행하기 전에 워크북에서 모든 워크시트를 선택할 필요는 없습니다.사용하는 대신ws.Select그리고.Next ws워크시트를 선택하지 않으면 올바르게 작동하지 않습니다.ws.Activate그리고.Next모든 시트의 확대/축소를 설정합니다.선택 사항으로,ScreenUpdating시트가 많은 워크북에 대해 비활성화할 수 있습니다.

Option Explicit

Sub FixSheets()
    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        ws.UsedRange.Select
        ActiveWindow.Zoom = True 'Zoom sur la sélection
        ActiveCell.Select
    Next ws
End Sub

언급URL : https://stackoverflow.com/questions/5953703/setting-all-excel-sheets-at-a-defined-zoom-level