تنظیم بزرگنمایی کاربرگ اکسل براساس وضوح صفحه نمایش( excel worksheet zoom based on screen resolution)

یکی از ایرادات مهم در برنامه های نوشته شده با اکسل عدم جانمایی مناسب برگه های اکسل در مانتیورهای مختلف می باشد با استفاده از کد زیر و با تنظیم بزرگنمایی برگه اکسل این مشکل تا حدودی رفع می گردد.

Sub Macro1()
   Dim maxWidth As Long, myWidth As Long
   Dim myZoom As Single
   maxWidth = Application.UsableWidth * 0.96
   myWidth = ThisWorkbook.ActiveSheet.Range("r1").Left
   myZoom = maxWidth / myWidth
   ActiveWindow.Zoom = myZoom * 100
End Sub

در کد بالا به جای (r1) آخرین ستونی که مایلید نمایش یابد را وارد نمائید

نقل شده از

http://stackoverflow.com/questions/11533942/adjusting-worksheet-zoom-level-based-on-screen-resolution