Adjusting the screen resolution Free Excel Macros (VBA) | Excel Programs

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

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000

Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Dim DevM As DEVMODE

Private Sub ChangeScreenResolution(iWidth As Single, iHeight As Single)
Dim a As Boolean
Dim i&
Dim b&
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
Loop Until (a = False)
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
DevM.dmPelsWidth = iWidth
DevM.dmPelsHeight = iHeight
b = ChangeDisplaySettings(DevM, 0)
End Sub

Sub ChangeTo1024_768()
Call ChangeScreenResolution(1024, 768) 'buradaki değerleri değiştirerek ayarlayabilirsiniz.
End Sub

No	Macro Name
1	Adjusting the screen resolution
2	Adjusting the screen resolution
3	adjust the screen resolution
4	finds formulas on active sheet / page lists new sheet / page
5	excel operators hk
6	display of the sheet / page with the screen resolution set to 800x600
7	Adjusting row height
8	learning screen resolution
9	excelin all menu pushbutton pictures
10	entering formula with message box
11	List the names of Excel files in a folder then give them a link
12	fonts in word
13	excel fonts 2
14	list formulas on new sheet / page
15	specifies in detail how many formulas are in the book (on new sheet / page)
16	specifies in detail how many references the book contains (on new sheet / page)
17	remove gaps
18	Zoom in / out or reduce the active sheet / page to a certain size
19	Fills the line spacing on the sheet / page
20	userform 4 waiting for a certain time on the screen and then close the user form.

Excel Free Macros (VBA)

Adjusting The Screen Resolution

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords