userform çalışması ile

[ekmekevi]

merhaba arkadaşlar excel dosyasını baş bir bilgisayar taşıyınca userformlar büyük geliyor userforma scrolbar ekliyorum fakat çalıışmıyor konu ile alakalı bilgisi olan bir arkadaş yardımcı olurmu teşekkürler

 

[cems]

Sayın @Haluk 'a ait bu kodlar ekrana göre userformu nesnelerini de beraber ayarlarak tam ekran yapıyor. Bir çok çalışmamda bu kodlar ekran cozunurluk ya da boyutlama farkı olsa da çok rahat bir tam ekran görüntüsü verdi ve aşırılıklar hiç yaşamadım ,kendi adıma kendisine bu kodlar için teşekkür ederim .

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

Bir deneyiniz

 

[ekmekevi]

Kaydırma cubuğu ile alakalı bilginizvarmı bu kodlar userformu büyütüyor fakat bazı butonlar ekran dışında kalıyor benim bilgisayarım büyük ekran leptap kücük ekran onun için kaydırma çubuğuna ihtiyacım var

 

[cems]

Bunun yerine genelde ekran yuzeylerine göre aşırı dışarda kalmayacak şekilde nesneleri yeniden taslak esnasında planlamanızı öneririm. Nesne bulunmadan ekranı kaplattıktan sonra tasarıma dönüp yerleştirme yapmanız daha doğru olabilir zira nesnelerde zaten kayma çubukları oluşacaktır, listbox gibi ..