wmi video card Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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

No	Macro Name
1	wmi video card
2	wmi motherboard
3	to turn capslock on
4	Calculate the duration of the mp3 file (type the file path and select that cell)
5	assign protection to sheet / page tabs
6	wmi bios
7	wmi system
8	wmi mouse
9	wmi information
10	wmi windows
11	Create your own extensions and functions in excel
12	excel operators hk
13	Justify text and tab in textbox
14	translate
15	Can the characters typed in the inputbox appear as "*****" (password or password characters)?
16	hide the mouse cursor 1
17	transfer processor information to a cell
18	zero to the left of the digits
19	automatic image fetch
20	wmi network adapters

Excel Free Macros (VBA)

Wmi Video Card

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords