ekran çözünürlüğünü ayarlatma Hazır Excel Makroları (VBA) | Excel Programları

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.

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)
End Sub

Benzer Sonuçlar
No	Makro Adı
1	ekran çözünürlüğünü ayarlatma
2	ekran çözünürlüğünü ayarlattırmak
3	ekran çözünürlüğünün 800x600 ayarlı olarak sayfanın gösterilmesi
4	ekran çözünürlüğü ayarlama
5	ekran çözünürlüğünüzü öğrenin
6	ekran çözünürlüğünü öğrenme
7	wmi ekran kartı
8	userform'u otomatik boyutlandırma
9	Tam ekran yapma, aşağı alma ve normal görünüme getirme
10	tablonuzu tam ekran yapar
11	tam ekran yap, ve çubuğu gizle
12	userform otomatik boyutlandırma
13	forma otomatik resim getirme
14	Excel dosyasını tam ekran gösterme veya tam ekrandan çıkma
15	çalışma kitabını tam ekran yapıp küçültme
16	userformu tam ekran yapan kodlar 2
17	userformu tam ekran yapan kodlar
18	kullanıcı adı ve parola eklemek
19	normal ekran için
20	resim çekmek (printscreen)

Benzer Sonuçlar

Makro Adı

ekran çözünürlüğünü ayarlatma

ekran çözünürlüğünü ayarlattırmak

ekran çözünürlüğünün 800x600 ayarlı olarak sayfanın gösterilmesi

ekran çözünürlüğü ayarlama

ekran çözünürlüğünüzü öğrenin

ekran çözünürlüğünü öğrenme

wmi ekran kartı

userform'u otomatik boyutlandırma

Tam ekran yapma, aşağı alma ve normal görünüme getirme

tablonuzu tam ekran yapar