ekran çözünürlüğü ayarlama 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) 'buradaki değerleri değiştirerek ayarlayabilirsiniz.
End Sub

Benzer Sonuçlar
No	Makro Adı
1	ekran çözünürlüğü ayarlama
2	ekran çözünürlüğünü ayarlattırmak
3	ekran çözünürlüğünü ayarlatma
4	ekran çözünürlüğünün 800x600 ayarlı olarak sayfanın gösterilmesi
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 yap, ve çubuğu gizle
10	Tam ekran yapma, aşağı alma ve normal görünüme getirme
11	Excel dosyasını tam ekran gösterme veya tam ekrandan çıkma
12	tablonuzu tam ekran yapar
13	çalışma kitabını tam ekran yapıp küçültme
14	userform otomatik boyutlandırma
15	forma otomatik resim getirme
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üğü ayarlama

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

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

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

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

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

wmi ekran kartı

userform'u otomatik boyutlandırma

tam ekran yap, ve çubuğu gizle

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