capitala قام بنشر April 6 مشاركة قام بنشر April 6 السلام عليكم عند تكبير الصفحة لأكثر من 149% تتحرك الصفحة تلقائيا في اتجاه اليسار قليلا واضطر إلى سحب الـ Horizontal Scroll Bar لضبط الصفحة، علما بأن أغلب ما أقوم به يكون عند زوم أعلى من 149% نظرا لضعف بصري. علما بأنني أقوم بالتكبير والتصغير باستخدام Macro هل هناك كود VBA يضبط الصفحة تلقائيا في منتصف الشاشة، أو يثبت الـ Horizontal Scroll Bar ليكون في المنتصف دائما؟ خالص الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر مايو 23 مشاركة قام بنشر مايو 23 **وعليكم السلام ورحمة الله وبركاته** **إليك كود 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. **ملاحظة:** * الكود الأول يضبط موضع الصفحة فقط عند تنفيذه. * الكود الثاني يثبت شريط التمرير الأفقي في المنتصف دائمًا، حتى عند التكبير أو التصغير. رابط هذا التعليق شارك More sharing options...
FranklinWrights قام بنشر أغسطس 4 مشاركة قام بنشر أغسطس 4 (معدل) بارك الله فيك jiofi.local.html tplinklogin تم تعديل أغسطس 4 بواسطه FranklinWrights رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان