Wmi Ekran Kartı 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. Sub InfoVideoController() Dim MyOBJ As Object Dim MyVideoController As Variant Dim MyMsg As String On Error Resume Next Set MyOBJ = GetObject("WinMgmts:").instancesOf _ ("Win32_VideoController") If Err.Number 0 Then MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _ "Windows Management Instrumentation" Exit Sub On Error GoTo 0 End If For Each MyVideoController In MyOBJ MyMsg = MyMsg & "Ekran Kartı bilgileri :" & vbCrLf MyMsg = MyMsg & String(50, "-") & vbCrLf MyMsg = MyMsg & "Üretici Firma : " & MyVideoController.AdapterCompatibility & _ " (" & MyVideoController.Caption & ")" & vbCrLf MyMsg = MyMsg & "Yatay çözünürlük : " & MyVideoController.CurrentHorizontalResolution & vbCrLf MyMsg = MyMsg & "Dikey çözünürlük : " & MyVideoController.CurrentVerticalResolution & vbCrLf MyMsg = MyMsg & "Renk kalitesi : " & MyVideoController.CurrentBitsPerPixel & " bps" & vbCrLf MyMsg = MyMsg & "Video Modu : " & MyVideoController.VideoModeDescription & vbCrLf MyMsg = MyMsg & "İşlemci : " & MyVideoController.VideoProcessor & vbCrLf Next MsgBox MyMsg, vbInformation, "Ekran Kartı Bilgileri (Raider ®)" 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 wmi ekran kartı 2 Çift tekrar eden / aynı olan satırları silmek 3 ekran çözünürlüğünü ayarlattırmak 4 forma otomatik resim getirme 5 kullanıcı adı ve parola eklemek 6 ekrandaki araç çubuklarını kaldırır ve getirir 7 Tam ekran yapma, aşağı alma ve normal görünüme getirme 8 açılan kitabın ekranını büyütür 9 resim çekmek (printscreen) 10 Excel programını tamamen gizleme veya gösterme / Excel'i gizle 11 userform'u otomatik boyutlandırma 12 textboxtan çıkarken msgbox 13 Hücrenin Fontunun rengini değiştirmek 14 çalışma kitabını tam ekran yapıp küçültme 15 exploreri açma tam ekran 16 wmi anakart 17 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 18 Yazıyı tersine çevirme 19 statusbar da (durum çubuğunda) kayan yazı 20 wmi bios