كيف يمكن جعل الصفحة في منتصف الشاشة بعد التكبير ( Zoom in)

[capitala]

السلام عليكم

عند تكبير الصفحة لأكثر من 149% تتحرك الصفحة تلقائيا في اتجاه اليسار قليلا واضطر إلى سحب الـ Horizontal Scroll Bar لضبط الصفحة، علما بأن أغلب ما أقوم به يكون عند زوم أعلى من 149% نظرا لضعف بصري. علما بأنني أقوم بالتكبير والتصغير باستخدام Macro

هل هناك كود VBA يضبط الصفحة تلقائيا في منتصف الشاشة، أو يثبت الـ Horizontal Scroll Bar  ليكون في المنتصف دائما؟

خالص الشكر والتقدير

 

[Saleh Ahmed Rabie]

**وعليكم السلام ورحمة الله وبركاته**

**إليك كود VBA يضبط الصفحة تلقائيًا في منتصف الشاشة:**

```vba
Sub CenterPage()
    ' احصل على نطاق الصفحة النشطة
    Dim oPage As Page
    Set oPage = ActiveDocument.ActiveWindow.View.Page

    ' احسب موضع الصفحة في منتصف الشاشة
    Dim lLeft As Long
    Dim lTop As Long
    lLeft = Application.Left + (Application.Width - oPage.Width) / 2
    lTop = Application.Top + (Application.Height - oPage.Height) / 2

    ' اضبط موضع الصفحة
    oPage.Left = lLeft
    oPage.Top = lTop
End Sub
```

**إليك كود VBA يثبت شريط التمرير الأفقي في المنتصف دائمًا:**

```vba
Private Sub Document_WindowActivate()
    ' احصل على شريط التمرير الأفقي
    Dim oHScrollBar As HScrollBar
    Set oHScrollBar = ActiveWindow.HScrollBar

    ' اضبط موضع شريط التمرير في المنتصف
    oHScrollBar.Value = oHScrollBar.Max / 2
End Sub
```

**لاستخدام هذه الأكواد:**

1. افتح محرر Visual Basic (Alt + F11).
2. انقر بزر الماوس الأيمن على مشروع VBA الخاص بالوثيقة النشطة.
3. حدد "إدراج" > "وحدة نمطية".
4. الصق الكود في وحدة النمطية.
5. أغلق محرر Visual Basic.

**ملاحظة:**

* الكود الأول يضبط موضع الصفحة فقط عند تنفيذه.
* الكود الثاني يثبت شريط التمرير الأفقي في المنتصف دائمًا، حتى عند التكبير أو التصغير.