Tam ekran yapmak

[M.ACAR]

İyi geceler;Forum da bulunan herkese selamlar
Excel 2010 için tam ekran yapma kodu nedir acaba,sayfa'dan çıkışta yine normal'e dönsün,bir kaç kod kullandım fakat olmadı.

 

[mustafa1205]

2003 için biliyorum ama işinizi görür mü bilmem

 

[M.ACAR]

2003 Excel kodlar mevcut fakat excel 2010'da kullanamadım.

 

[mustafa1205]

Anladım. Kolay gelsin

 

[Husgvarna]

2003 Excel kodlar mevcut

Bu kodları eklermisiniz?

 

[erselonur]

userformu tam ekran yapmayı ne yaptımsa beceremedim.

Bu konuda engin bilgi ve tecrübelerinizi bekliyorum

 

[cems]

Değerli üstad Sn Haluk'un düzenlediği bu kodları, modüle DEĞİL tam ekran olması gereken userform'un kod kısmına yapıştırın. Bu küçük ayrıntı beni de çok uğraştırmıştı. Ben 2010'da sorunsuz kullanıyorum.

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
'Label4.Caption = Format(Label4, "dd.mm.yyyy")
End Sub

Yine de aklınızda olsun ki, en iyi userform görünümü 768*1024 ekran çözünürlüğünde oluyor. 800*600 çözünürlükte object'ler aşırı büyür.