learning screen resolution Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

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

No	Macro Name
1	learning screen resolution
2	excel operators hk
3	learn your screen resolution
4	resolution learning
5	display of the sheet / page with the screen resolution set to 800x600
6	Adjusting the screen resolution
7	Adjusting the screen resolution
8	adjust the screen resolution
9	learning with classmodule
10	learning harddiskin free space etc ..
11	Learning the formula in a1
12	learning the file format of the drive
13	learning button name on sheet / page
14	learning clock with message
15	learning the message with classmodule2
16	learning operating system
17	learning whether the book is open by function
18	learning the file system
19	learning cell names
20	learning the time and date

Excel Free Macros (VBA)

Learning Screen Resolution

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords