[حل شده] تنظیم اتوماتیک اندازه فرم با انواع مانیتور

[m.zaeim]

سلام ..چطور میتونیم فرمی رو که میسازیم به صورت اتوماتیک با ابعاد مانیتورمون هم اندازه بشه ..همینطور وقتی فایلمون رو روی سیستمهای دیگه اجرا میکنیم این اتفاق بیفته و با انواع مانیتورها اتوماتیک فیت بشه ..

[amir_ts]

با سلام
با توجه به نتیجه کد های زیر رو امتحان کنید.

[LEFT]
Private Sub UserForm_Activate()
With Application
   Me.Top = .Top
    Me.Left = .Left
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub
[/LEFT]

[LEFT]
Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized
        Zoom = Int(.Width / Me.Width * 10)
        Width = .Width
        Height = .Height
    End With

End Sub
[/LEFT]

[m.zaeim]

سپاااس