ekran çözünürlüğü

[ccumhur]

Private Sub UserForm_Initialize()
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
End Sub
yukarda sn leventm in çalışması idi heralde.bu çalışmayı excel kitabındaki bütn formlara nasıl uygularız.tşk

 

[Levent Menteşoğlu]

yukarda sn leventm in çalışması idi heralde.bu çalışmayı excel kitabındaki bütn formlara nasıl uygularız.

Çalışma bana değil Sn Haluk beye aittir. Bu kod bir userforma ait olduğu için tüm dosyalarda geçerli olması sözkonusu değildir. Her userforma ayrı ayrı yazılması gerekir.

 

[ccumhur]

peki ocam tesekür ederim

 

[Haluk]

Ekli örnek işinize yarayabilir.