تكبير خط القائمة المنسدلة

تكبير خط القائمة المنسدلة

تكبير الخط داخل القائمة المنسدلة من خلال شفرة برمجية

أحيانا نشعر أن الخط بالقائمة المنسدلة صغير

والبعض يبحث عن طريقة ما لـ

تكبير خط القائمة المنسدلة

يمكنك استخدام الكود البرمجى التالي

يوضع الكود داخل حدث الشيت الذى به القائمة المنسدلة

'فضلا عند استخدامك للشفرات البرمجية يجب ذكر المصدر
'https://elshriefacademy.blogspot.com

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim lZoom As Long
  Dim lZoomDV As Long
  Dim lDVType As Long
  lZoom = 100
  lZoomDV = 120
  lDVType = 0

  Application.EnableEvents = False
  On Error Resume Next
  lDVType = Target.Validation.Type
  
    On Error GoTo errHandler
    If lDVType <> 3 Then
      With ActiveWindow
        If .Zoom <> lZoom Then
          .Zoom = lZoom
        End If
      End With
    Else
      With ActiveWindow
        If .Zoom <> lZoomDV Then
          .Zoom = lZoomDV
        End If
      End With
    End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub
errHandler:
  GoTo exitHandler
End Sub

الخطوات :

1. فتح المصنف
2. الدخول على محرر الأكواد باستخدام Alt + F11
3. اضغط مرتين بالماوس على اسم الشيت الذى بداخله القائمة المنسدلة
4. نسخ ولصق الشفرة البرمجية
5. حفظ المصنف بإمتداد .xlsm