Makro ile Ekran Çözünürlüğü Bulma

Bu dosya, çalışılan bilgisayarın ekran çözünürlüğünü Excel içinden öğrenmek için hazırlanmış bir makro örneğidir. Makro, Windows'un User32 kütüphanesindeki GetSystemMetrics API fonksiyonunu çağırır ve ekranın genişlik ile yükseklik değerlerini bir mesaj kutusunda gösterir. Farklı ekran boyutlarına göre düzen hazırlayan VBA geliştiricileri için de basit bir başlangıç örneğidir.

Dosyanın içeriği​

• Sayfa1: Çalışma sayfası boştur; yalnızca C4 hücresi kullanılmış alan olarak görünür. Formül, tablo veya grafik yoktur.
• Module1: DisplayMonitorInfo adlı makroyu ve API tanımını içeren 10 satırlık VBA modülüdür.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

• GetSystemMetrics32: User32 kütüphanesindeki GetSystemMetrics fonksiyonunun Declare Function ile yapılan tanımıdır. Bu tanım 32 bit Excel için yazılmıştır; 64 bit Excel sürümlerinde PtrSafe ifadesi eklenmesi gerekebilir.
• DisplayMonitorInfo: Fonksiyonu 0 indeksiyle çağırarak ekran genişliğini, 1 indeksiyle çağırarak ekran yüksekliğini alır. Değerleri binlik ayraçlı biçimlendirir ve "genişlik x yükseklik" şeklinde bir mesaj kutusunda gösterir. Kutunun başlığı "Ekran Çözünürlüğü (uzunluk x Genişlik)" olarak ayarlıdır.

Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur; makro yalnızca sistemden ekran ölçülerini okur ve ekranda gösterir.

Nasıl kullanılır​

1. Dosyayı açın ve makroların etkinleştirilmesine izin verin.
2. Alt+F8 tuşlarına basarak makro listesini açın.
3. DisplayMonitorInfo makrosunu seçip Çalıştır düğmesine tıklayın.
4. Mesaj kutusunda ekranın piksel cinsinden genişliği ve yüksekliği görüntülenir.
5. Kodu kendi projenizde kullanmak için Alt+F11 ile VBA düzenleyicisini açıp Module1 içeriğini kendi modülünüze taşıyabilirsiniz.