Form Resize

Описание: Büyük Ekranda Tasarlanan Userformun Küçük Ekranlarda Boyutlandırılması

Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz.

USERFORM INITIALIZE Kısmına Yapıştırın
'// FORM RESIZE ######################################
Dim X1 As Long, Y1 As Long, Y2 As Long, X2 As Long
Dim CX As Double, CY As Double
Dim MyCtrl As Control
X1 = Application.Width
Y1 = Application.Height
X2 = Me.Width
Y2 = Me.Height
CX = X1 / X2
CY = Y1 / Y2
Me.Width = X1
Me.Height = Y1
For Each MyCtrl In Me.Controls
MyCtrl.Top = MyCtrl.Top * CY
MyCtrl.Left = MyCtrl.Left * CX
MyCtrl.Width = MyCtrl.Width * CX
MyCtrl.Height = MyCtrl.Height * CY
On Error Resume Next
MyCtrl.Font.Size = MyCtrl.Font.Size * CY
On Error GoTo 0
Next

Ücretsiz Programların da Yer Aldığı Onatma Listesi
► Program Tanıtımları :    • Program Tanıtımları  
► VBA Eğitim Videoları :    • VBA Eğitim Videoları  
► Excel Eğitim Videoları :    • EXCEL Eğitim Videoları  

Video işinize yaradıysa desteğinizi göstermek adına beğenmeyi ve kanala abone olmayı unutmayın. Yeni yükleyeceğim videolarımdan haberdar olmak için bildirimleri açınız.

Mail ( Contact ) - [email protected]