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

Katılım
5 Mart 2017
Mesajlar
105
Excel Vers. ve Dili
2016 Tr
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde bir deneyiniz.
Kod:
Application.WindowState = 1
Application.Width = 400
Application.Height = 300
 
Katılım
5 Mart 2017
Mesajlar
105
Excel Vers. ve Dili
2016 Tr
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

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
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

Rich (BB code):
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.
 
Son düzenleme:

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
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

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sayın @netzone önerisi ile düzenlenen dosya eklidir.
İlgisi ve katkıları için teşekkür ederim.

Dosya Linki
 

Ekli dosyalar

Son düzenleme:
Katılım
5 Mart 2017
Mesajlar
105
Excel Vers. ve Dili
2016 Tr
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.(y)
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağ olun, iyi çalışmalar.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Sayfayı kendinize göre bir seferlik manuel olarak yatay-dikey ayarlayıp ilgili kodu deneyiniz.
Kod:
Application.WindowState = xlNormal
 
Üst