ekran görünümü

[muratozmenler]

ekteki dosyada gerekli açıklama var kısaca ekran çözünürlüğü açtığımız excel dosyasının görünümünü kendi ayarlayabilir mi?

 

[janveljan]

Aşağıdaki kodları bir modüle yapıştırdığınız zaman işinize yarayacaktır. (Standart sayfanın 1024 çönünürlükte olduğu varsayıldı)

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Sub auto_open()
    x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
    y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
    ActiveWindow.Zoom = 100 * x / 1024
End Sub

 

[muratozmenler]

SANIRIM OLDU FAKAT
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Sub auto_open()
x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
ActiveWindow.Zoom = 100 * x / 1024
ActiveWindow.Zoom = 85 * Y / 1024

End Sub
OLARAK YAPTIM BENİM 1280 ÇÖZÜNÜRLÜK YARIN 1024 TE DENEYİM OLMAZ İSE SON EKLEDİĞİMİ SİLECEĞİM İLGİNİZ İÇİN TEŞEKKÜRLER

 

[mrpeace0365]

merhaba,
murat bey uzun zamandır çözünürlükle ilgili bir kod arıyordum yukarıdaki kod işe yarıyor gerçekten...
merak ettim de acaba ...=100*x/1024
...=85*y/1024... acaba burada geçen 100 ve 85 sayılarının anlamı nedir ne işe yarıyorlar?
bu rakamları tesadüfi mi seçtiniz yoksa br özelliği var mı?
bu konuda bilgi verirseniz sevinirim...
iyi çalışmalar

 

[muratozmenler]

görünüm yakınlaştır diyoruz ya
100 anlamı zomm yakınlaşması %100 seçmek 85 in de %85 seçmek demek
ekrana göre %100 yada %85 yakınlaştır demek kısaca

 

[janveljan]

ActiveWindow.Zoom = 100 * x / 1024
ActiveWindow.Zoom = 85 * Y / 1024
Aslında bu iki satırın birden olmasına gerek yok ayarı birine göre yapmak lazım. Mantığı şöyle;
Siz 1024x768 çözünürlükte %100 zoomla bir sayfa hazırladınız ve bu haliyle sayfaya tam sığıyor. Bu dosyayı 800x600 bir bilgisayarda açtığınızda sayfaya tam sığmayacaktır. Sayfaya tam sığması için zoom değerini düşürmemiz lazım. Bunu da zoomu 100*800/1024 değerine eşitleyerek yapıyoruz, ki bu da yüzde 78 gibi bir değer çıkıyor ve sayfaya tam sığıyor.
Yani özetleyecek olursak 100 değeri belgeyi hazırladığınız andaki zoom değeri, 1024 değeri ise belgeyi hazırladığınız bilgisayarın çözünürlük değeri (genişlik olarak)
Hazırladığınız sayfayı boydan sığdırmak istiyorsanız o zaman 100*y/768 şeklinde kullanmak lazım.

 

[mrpeace0365]

merhaba,
benim anlayamadığım yukarıdaki kod, programın çalıştırıldığı ekran hangi çözünürlükte açılırsa programın ona göre değer almasını sağlamıyor mu?(verilerin ekrana sığması açısından)
bana sanki sağladı gibi gelmişti ama!
eğer sağlamıyorsa bunu sağlayan bir kod var mı acaba?
teşekkürler ve iyi çalışmalar

 

[muratozmenler]

BEN şu an bu kodu kullanıyorum bir çok bilgisayara dosyamı taşıyorum ve çalışmalarıma orada devam ediyorum sorunsuz bir şekilde işliyor....
SAYIN JANVELJANIN da dediği gibi kullanılabilir her iki türlüde kod çalışıyor....