كيفية جعل اليوزرفوم يملأ الشاشه

[أبو عبد الملك السوفي]

السلام عليكم

من فضلكم كيف أجعل اليوزرفورم يملأ الشاشه؟؟؟

[أبوســـارة1973]

أضف هذا الكود في الفورم

 

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized
        Zoom = Int(.Width / Me.Width * 100)
        Width = .Width
        Height = .Height
    End With
End Sub

تم تعديل ديسمبر 31, 2017 بواسطه أبوســـارة1973