Ekran Çözünürlüğünü Öğrenme Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Const HORZRES = 8 Const VERTRES = 10 Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CYSCREEN As Long = 1 Const SM_CXSCREEN As Long = 0 Sub GetScreenDimensions() Dim lWidth As Long Dim lHeight As Long lWidth = GetSystemMetrics(SM_CXSCREEN) lHeight = GetSystemMetrics(SM_CYSCREEN) MsgBox "Screen Width = " & lWidth & vbCrLf & "Screen Height = " & lHeight End Sub Function ScreenResolution() Dim lRval As Long Dim lDc As Long Dim lHSize As Long Dim lVSize As Long lDc = GetDC(0&) lHSize = GetDeviceCaps(lDc, HORZRES) lVSize = GetDeviceCaps(lDc, VERTRES) lRval = ReleaseDC(0, lDc) ScreenResolution = lHSize & "x" & lVSize End Function Sub GetScreenSize() Debug.Print ScreenResolution() End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 ekran çözünürlüğünü öğrenme 2 ekran çözünürlüğünüzü öğrenin 3 ekran çözünürlüğünü ayarlattırmak 4 ekran çözünürlüğünün 800x600 ayarlı olarak sayfanın gösterilmesi 5 ekran çözünürlüğünü ayarlatma 6 wmi ekran kartı 7 ekran çözünürlüğü ayarlama 8 userform'u otomatik boyutlandırma 9 çözünürlük öğrenme 10 Tam ekran yapma, aşağı alma ve normal görünüme getirme 11 userform otomatik boyutlandırma 12 Excel dosyasını tam ekran gösterme veya tam ekrandan çıkma 13 tablonuzu tam ekran yapar 14 çalışma kitabını tam ekran yapıp küçültme 15 tam ekran userform 16 sayfa1 in tam ekran olması 17 tam ekran için 18 tam ekran yap, ve çubuğu gizle 19 normal ekran için 20 userformu tam ekran yapan kodlar 2