همیشه با زوم 100% باز شود در اکسل

Question

اگر با کتاب‌هایی کار می‌کنید که ابتدا همکارانتان روی آن‌ها کار کرده‌اند، ممکن است از ضریب بزرگ‌نمایی اعمال شده روی آن کتاب‌ها توسط دیگران ناامید شوید. به عنوان مثال، اگر همکار شما (واندا) یک مانیتور بزرگ داشته باشد، برای او غیرعادی نیست که ضریب بزرگنمایی Excels را به 75٪ یا حتی 60٪ کاهش دهد. البته هدف این است که چیزهایی که در فاکتور بزرگنمایی کامل بسیار بزرگ به نظر می رسند بر او چیره نشود.

مشکل این است که فاکتور بزرگنمایی با کتاب کار ذخیره می شود. بنابراین، وقتی Wanda کتاب کار را ذخیره می‌کند و آن را در اختیار شما قرار می‌دهد، وقتی آن را باز می‌کنید، کتاب کار همچنان با هر فاکتور بزرگ‌نمایی که Wanda آخرین بار استفاده کرده است، نمایش داده می‌شود. اگر اندازه مانیتور واندا را ندارید، ممکن است کتاب کار روی سیستم شما تقریباً ناخوانا باشد.

تنها دو راه حل ممکن برای این مشکل وجود دارد. اول، شما به سادگی می توانید ضریب بزرگنمایی را پس از باز کردن کتاب کار تنظیم کنید. راه‌های زیادی برای انجام این کار وجود دارد، اما ساده‌ترین آنها استفاده از کنترل زوم در سمت راست نوار وضعیت است. می توانید روی نقطه مرکزی روی نوار لغزنده Zoom کلیک کنید و به سرعت به 100% برگردید یا می توانید بر روی درصد کنار نوار لغزنده کلیک کنید تا کادر محاوره ای Zoom نمایش داده شود.

راه حل دوم ایجاد یک ماکرو است که با کتاب کار ذخیره می شود. ماکرو می تواند هر بار که کتاب کار باز می شود اجرا شود و به این ترتیب ضریب بزرگنمایی را تنظیم کند. (این ماکرو باید به پنجره کد This Workbook در ویرایشگر VBA اضافه شود.)

Private Sub Workbook_Open()
    ActiveWindow.Zoom = 100
End Sub

البته تنها مشکل ماکروهایی مانند این این است که هر زمان که واندا (همکار شما) کتاب کار را روی سیستم خود باز می کند، فاکتور بزرگنمایی نیز تنظیم می شود و پوسته به همان اندازه که از او ناراحت بودید، از شما ناامید می شود.

شاید یک راه حل این باشد که یک ماکرو درگیرتر ایجاد کنید - ماکرویی که وضوح صفحه نمایش فعلی را بررسی می کند و سپس ضریب بزرگنمایی را متناسب با آن تنظیم می کند. به عنوان مثال، ماکرو زیر می تواند برای انجام تنظیمات بر اساس وضوح استفاده شود:

Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()
    Dim lResWidth As Long
    Dim lResHeight As Long
    Dim sRes As String

    lResWidth = GetSystemMetrics32(0)
    lResHeight = GetSystemMetrics32(1)
    sRes = lResWidth & "x" & lResHeight
    Select Case sRes
        Case Is = "800x600"
            ActiveWindow.Zoom = 75
        Case Is = "1024x768"
            ActiveWindow.Zoom = 125
        Case Else
            ActiveWindow.Zoom = 100
    End Select
End Sub

این روال وضوح صفحه نمایش را بررسی می کند و پنجره را مطابق با آن تنظیم می کند. رزولوشن ها و زوم های دیگر ممکن است به راحتی اضافه شوند. برای اینکه روال به صورت خودکار اجرا شود، کافی است از یک کنترل کننده رویداد Workbook_Open در پنجره کد This Workbook برای فعال کردن ماکرو استفاده کنید:

Private Sub Workbook_Open()
    ScreenRes
End Sub