Tam ekran modunun ölçülendirilmesi

[xternet]

Merhaba arkadaşlar.
Aşağıdaki kodla programın açılışta tam ekran olarak açılmasını sağlıyoruz.
Acaba ekranın tam ekran modunda (yani excel menüleri olmadan), yalnız monitörü tam olarak kaplamadan istediğimiz ölçülerde açılmasını sağlamak mümkün mü?

Yada çalışma kitabımızın ölçüleri belirlenmiş Bir UserForm içerisinde açılmasını sağlamak mümkün mü?

Herkese iyi çalışmalar.


Sub Auto_open()

Application.DisplayFullScreen = True

End Sub

 

[cems]

Burada userform resize , tutup kucultme ortalama olculendirme örnekleri var, inceleyiniz .


http://www.excel.web.tr/search.php?searchid=3131160

 

[xternet]

Sayın cems,
Linkte bir sorun var sanırım.
Sonuç bulunamadı diyor.

 

[cems]

Link yenilendi ..

Yine aynı şey olursa , basitçe arama kutusunda " userform resize " yazıp aratın , bir çok sonuç geliyor.

 

[xternet]

Verdiğiniz linkler oldukça faydalı.
Yalnız benim öğrenmek istediğim daha çok excel i belirli ölçülerde tam ekran modunda açıp açamayacağımız. Böyle bir ihtimal var mı?

 

[cems]

öğrenmek istediğim daha çok excel i belirli ölçülerde tam ekran modunda açıp açamayacağımız. Böyle bir ihtimal var mı?

Mod ya belirli ölçüde olur ya da ölçüye dayanmaz , açıldığı ekran çözünürlüğüne bakıp tam ekran olup sola ve üste dayanır. Bunlar dışında bir kod yolu varsa , ben bilmiyorumdur ...

Bunun dışında en pratik ölçüleme yolu ; userformu kapatır exceli açar ve ekranınıza göre çekiştirip boyutlandırırsınız , save eder kapatırsınız. Sonra tekrar açınca form otomatik de açılsa ya da sayfadan tüş ile de açılsa ; hep verdiğiniz ölçüde açılacaktır.

 

[Saban Sertkaya]

Deneyiniz...
Kodun yazıldığı dosyanın açılışında Ribbon Menü gizlenir ve excel belirtilen yerde açılır.
Dosya kapatıldığında Ribbon Menü tekrar açılır.

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ribbon Menüyü Gizle
Application.WindowState = xlNormal 'Uygulamayı normal modda aç
Application.Left = 100 'Soldan
Application.Top = 50 'Üstten
Application.Width = 600 'Genişlik
Application.Height = 300 'Yükseklik
End Sub


Private Sub Workbook_Beforeclose(cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

 

[xternet]

Sayın saban20152015,
Çok teşekkür ediyorum. Aradığım buydu.
Zihninize sağlık,
İyi çalışmalar.

 

[Saban Sertkaya]

Rica ederim. Yardımcı olabildiysek ne mutlu.