Excel ile Çözünürlük Ayarlama

Bu dosya, bir userform üzerindeki sekiz butonla Windows ekran çözünürlüğünün Excel içinden değiştirilmesini sağlar. VBA kodunun Windows API ile nasıl çalıştığını gösteren öğretici bir örnektir.

Dosyanın içeriği​

• Sayfa1: Veri içermeyen çalışma sayfasıdır; işlemler tamamen userform üzerinden yapılır.
• UserForm1: Sekiz butonlu çözünürlük formudur. Butonlar sırasıyla 800x600, 1024x768, 1280x720, 1280x1024, 1366x768, 1600x900, 1680x1050 ve 1920x1080 çözünürlüklerine karşılık gelir.
• Module1: Ekran ayarı yapısını (DEVMODE) tanımlar ve formu açan FormAc makrosunu içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• FormAc: UserForm1 formunu görüntüler. Alt+F8 ile çalıştırılır.
• CozunurlukDegistir: Genişlik ve yüksekliği parametre olarak alır. user32 kütüphanesindeki EnumDisplaySettings ile geçerli ekran ayarlarını okur, ardından ChangeDisplaySettings ile yeni genişlik ve yükseklik değerlerini uygular.
• CommandButton1_Click ... CommandButton8_Click: Her biri yukarıdaki çözünürlüklerden birini CozunurlukDegistir yordamına gönderir.

Kodda dosya silme veya dışarıya bağlantı gibi bir işlem yoktur; yalnızca ekran çözünürlüğü ayarı değiştirilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile FormAc makrosunu çalıştırın.
3. Açılan formdan istediğiniz çözünürlüğün butonuna tıklayın.
4. Farklı bir çözünürlük gerekiyorsa VBA düzenleyicisinde ilgili butonun Click yordamındaki genişlik ve yükseklik değerleri değiştirilir.

Sürüm notu: Dosyadaki kodlar 32 bit API bildirimleri içerdiği için 64 bit Excel sürümlerinde çalışmayabilir. Bu sürümlerde bildirimlerin 64 bit uyumlu hale getirilmesi gerekir.