اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

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

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

 

  • 1 month later...
قام بنشر

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

**إليك كود 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.

**ملاحظة:**

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

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information