Çözüldü Sayfanın küçük açılması

[potifar534]

Arkadaşlar bir sorum olacaktı sizlere,

Sayfa1 her zaman belli büyüklükte açılabilir mi?
Şöyle izah edeyim:
Sayfa1 otomatik olarak açılan başlangıç sayfam. Sayfalar arasında butonla geziniyorum.
Sayfa1 hem ilk açılışta hem de diğer sayfalardaki butonlara tıklayıp Sayfa1’e geldiğimde her zaman ekranı kaplayarak değil de ortalama olarak A4 kâğıdının yarısı büyüklüğünde bir görünümle açılabilir mi? Tabi butonla diğer sayfalara gittiğimde onlar ekranı kaplar şekilde açılmalı.

Kendim makro kaydet ile şöyle bir şey ortaya çıkardım ama onu nerede, nasıl kullanmalıyım bilmiyorum.
Sub Makro1()
Application.Left = 388
Application.Top = 222.25
Application.Width = 630.75
Application.Height = 411.75
End Sub
http://s7.dosya.tc/server11/ud3eg8/Kucuk_Ekran_Acil.rar.html

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Application.WindowState = 1
Application.Width = 400
Application.Height = 300

 

[potifar534]

Sağ olun Seyit Bey,
Kodu butona bağlayıp tıkladığımda Sayfa1'e belirtilen oranda küçültme yaparak gidiyor.
Sub Makro1()
Sheets("Sayfa1").Select
Application.WindowState = 1
Application.Width = 500
Application.Height = 350
End Sub

İlk açılışta ise şu şekilde sonuç alıyorum:
Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Application.WindowState = 1
Application.Left = 388
Application.Top = 222.25
Application.Width = 630.75
Application.Height = 411.75
End Sub

Yeşil kısımlar sayfayı dört taraftan ortalamak için elle üretmeye çalıştığım değerler.
EK SORU: Sayfayı dört taraftan otomatik ortalayabiliyor muyuz?

 

[netzone]

Merhaba,

Tek bir kod ile ekranı ortalaması sağlanabilir mi emin değilim. Fakat şu şekilde yol alınabileceği kanaatindeyim.

Ekran çözünürlüğü bilgisi edinilir ve aşağıdaki işlem yapılarak sol ve üst boşluklar bulunabilir.

Buna göre yapılacak işlem;
[Ekran çözünürlüğünün genişliğinin yarısı - (pencere genişliği * 1,333)'ün yarısı] / 1,333 = (Sol boşluğu)
[Ekran çözünürlüğünün yüksekliğinin yarısı - (pencere yüksekliği * 1,333)'ün yarısı] / 1,333 = (Üst boşluğu)

Örnek ölçüler ile ele alırsak:
Pencere boyutu 350x500 olsun, Ekran Çözünürlüğü 1920x1080 olsun.

Sol boşluk = [(1920/2)-((350*1,333)/2)]/1,333 = 546,409
Üst boşluk = [(1080/2)-((500*1,333)/2)]/1,333 = 155,451

Sub Makro1()
Sheets("Sayfa1").Select
Application.WindowState = 1
Application.Left = 546.409
Application.Top = 155.451
Application.Width = 350
Application.Height = 500
End Sub

Test Sırasında Kullanılan; Windows 10, Ekran Çözünürlüğü 1920x1080, Ölçekleme %100, Excel 2016 dır.
1,33:1 (4:3) en-boy oranı kullandığım bilgisayarda geçerli olması sizde de aynı olacağı anlamına gelmemektedir. Kullanılan monitöre göre değişiklik gösterebilir.

iyi çalışmalar.

 

[turist]

Sayın @potifar534 ,
Sayın @netzone tarafından kurgulanan matematik işlem baz alınarak oluşturulmuş; Makro Kodu içeren örnek dosya aşağıdaki linktedir.
İnceleyiniz.
Dosya Linki

 

[netzone]

Merhaba,

@turist arkadaşımızın yazmış olduğu kodlar ekranı ortalayacak biçimde hazırlanmıştır. Teşekkür ederiz.
Excel 2007 ve Excel 2016 (x64) de yaptığım kontroller sonucu ufak bir iyileştirme yapılması kanaatindeyim.
Tam ekrana geçiş esnasında yazılan kodlar pencere boyutunu, ekranın genel kullanım alanına getirdiğinden başlat çubuğunun altında kalmaktadır. Söz konusu EkranTamYap kod bloğu aşağıdaki ile değiştirilebilir.

Sub EkranTamYap(Optional Dummy As Integer) Application.WindowState = xlMaximized End Sub

İyi çalışmalar.

 

[turist]

Sayın @netzone önerisi ile düzenlenen dosya eklidir.
İlgisi ve katkıları için teşekkür ederim.

Dosya Linki

 

[potifar534]

Sayın netzone ve sayın turist,
Doğrusunu söylemek gerekirse ayrıntılı bilgilendirme, çözüm önerileriniz ve ekli dosya/lar için harcadığınız emek karşısında mahcubiyet hissettim.
Emek vererek oluşturduğunuz çözüm/ler için yürekten teşekkürlerimi iletiyorum, sağ olun.
Sonuç alınmıştır ve olumludur.

 

[turist]

Sağ olun, iyi çalışmalar.

 

[Tevfik_Kursun]

Teşekkürler Arkadaşlar,
Saygılarımla

 

[Seyit Tiken]

Sayfayı kendinize göre bir seferlik manuel olarak yatay-dikey ayarlayıp ilgili kodu deneyiniz.

Application.WindowState = xlNormal