تغییر اندازه کاغذ برای یک ورک بوک کامل

Question

باب یک ورک بوک دارد که حدود پانزده کاربرگ در آن وجود دارد و باید فرمت صفحه را برای تمام کاربرگ ها از Letter به A4 تغییر دهد. یک راه سریع برای ایجاد تغییر با دنبال کردن مراحل زیر وجود دارد:

1. روی هر برگه کاربرگ راست کلیک کنید. یک منوی زمینه ظاهر می شود.
2. انتخاب همه برگه ها را انتخاب کنید. اکنون باید همه برگه های کاربرگ انتخاب شوند.
3. تب Page Layout روبان را نمایش دهید.
4. روی ابزار Size در گروه Page Setup کلیک کنید. اکسل برخی از اندازه های رایج کاغذ را نمایش می دهد.
5. از اندازه های کاغذ ارائه شده، روی گزینه A4 کلیک کنید.
6. روی هر برگه کاربرگ راست کلیک کنید. دوباره منوی زمینه را خواهید دید.
7. Ungroup Sheets را انتخاب کنید.

خودشه؛ اکنون اندازه کاغذ برای همه برگه ها تنظیم شده است. با این حال، یک اشکال در این رویکرد وجود دارد: اگر کاربرگ های جداگانه تنظیمات تنظیم صفحه متفاوتی داشته باشند (جهت های مختلف، حاشیه ها، سرصفحه ها، پاورقی ها و غیره)، پس دنبال کردن این مراحل همه آنها را یکسان تنظیم می کند. اگر فقط می خواهید اندازه کاغذ را تغییر دهید و نمی خواهید تنظیمات دیگری را تغییر دهید، تنها راه شما استفاده از یک ماکرو برای انجام این تغییر است.

Sub AllSheetsA4()
    Dim sht As Variant

    For Each sht In ActiveWorkbook.Sheets
        sht.PageSetup.PaperSize = xlPaperA4
    Next
End Sub

ماکرو از هر برگه در ورک بوک عبور می کند و فقط ویژگی PaperSize را تغییر می دهد تا برگه روی کاغذ A4 چاپ شود.