klop01
Altın Üye
- Katılım
- 19 Aralık 2016
- Mesajlar
- 638
- Excel Vers. ve Dili
- 2021 Türkçe 64 Bit
- Altın Üyelik Bitiş Tarihi
- 07-02-2028
Değerli arkadaşlar,
Ekteki belgede açıklamasını yaptığım konuda yardıma ihtiyacım var.
Konu kısaca şöyle: Bir excel sayfasındaki sayfaların ekran çözünürlüğüne göre istenilen yakınlaştırma oranı ile açılması konusu.
http://s7.dosya.tc/server5/v7xg2x/ekran_cozunurlugu.rar.html
DOSYADAKİ KODLAR:
Bu Çalışma Sayfasında
Modülde
Ekteki belgede açıklamasını yaptığım konuda yardıma ihtiyacım var.
Konu kısaca şöyle: Bir excel sayfasındaki sayfaların ekran çözünürlüğüne göre istenilen yakınlaştırma oranı ile açılması konusu.
http://s7.dosya.tc/server5/v7xg2x/ekran_cozunurlugu.rar.html
DOSYADAKİ KODLAR:
Bu Çalışma Sayfasında
Kod:
Private Sub Workbook_Open()
ekrancozunurlugu
End Sub
Kod:
Option Explicit
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
#If VBA7 And Win64 Then
Declare PtrSafe Function GetDesktopWindow Lib "User32" () As Long
Declare PtrSafe Function GetWindowRect Lib "User32" (ByVal hWnd As Long, rectangle As RECT) As Long
#Else
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" (ByVal hWnd As Long, rectangle As RECT) As Long
#End If
Function ekrancozunurlugu() As String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
hWnd = GetDesktopWindow()
RetVal = GetWindowRect(hWnd, R)
ekrancozunurlugu = (R.x2 - R.x1) & "x" & (R.y2 - R.y1)
If ekrancozunurlugu = "3840x2160" Then ActiveWindow.Zoom = 330
If ekrancozunurlugu = "3440x1440" Then ActiveWindow.Zoom = 276
If ekrancozunurlugu = "2560x1440" Then ActiveWindow.Zoom = 216
If ekrancozunurlugu = "2560x1080" Then ActiveWindow.Zoom = 216
If ekrancozunurlugu = "1920x1080" Then ActiveWindow.Zoom = 169
If ekrancozunurlugu = "1680x1050" Then ActiveWindow.Zoom = 146
If ekrancozunurlugu = "1600x1200" Then ActiveWindow.Zoom = 140
If ekrancozunurlugu = "1600x900" Then ActiveWindow.Zoom = 140
If ekrancozunurlugu = "1440x900" Then ActiveWindow.Zoom = 126
If ekrancozunurlugu = "1400x1050" Then ActiveWindow.Zoom = 122
If ekrancozunurlugu = "1366x768" Then ActiveWindow.Zoom = 119
If ekrancozunurlugu = "1360x768" Then ActiveWindow.Zoom = 119
If ekrancozunurlugu = "1280x1024" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1280x960" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1280x800" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1280x768" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1280x720" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1280x600" Then ActiveWindow.Zoom = 112
If ekrancozunurlugu = "1152x864" Then ActiveWindow.Zoom = 101
If ekrancozunurlugu = "1024x768" Then ActiveWindow.Zoom = 90
If ekrancozunurlugu = "800x600" Then ActiveWindow.Zoom = 71
End Function
Ekli dosyalar
-
45.7 KB Görüntüleme: 8