Ekran çözünürlüğüne göre sayfa boyutu!!!

[esak]

Millet çok acil yardım. 10 puanlık uzman sorusu. Ekranın çözünürlüğüne göre sayfa büyüklüğünü ayarlamak istiyorum ama nasıl yapıcam bilmiyorum. Yardım lütfen...

 

[supervisor]

Bende aynı problemi çekiyorum. 800x600 de sayfa sığmıyor mecburen satır gizliyorum. bir tuş yaptım 800x600 ve 1024x768 diye basıldığında hücreleri ve satırları gizliyor veya açıyor. ancak böyle çözebildim

 

[esak]

Nette çözüm ararken aşağıdaki kodu buldum. Sayfa çözünürlüğününü kendi tespit ediyor.

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

' 16-bit API declaration
Declare Function GetSystemMetrics16 Lib "user" _
Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1



Sub DisplayVideoInfo()
If Left(Application.Version, 1) = 5 Then
' 16-bit Excel
vidWidth = GetSystemMetrics16(SM_CXSCREEN)
vidHeight = GetSystemMetrics16(SM_CYSCREEN)
Else
' 32-bit Excel
vidWidth = GetSystemMetrics32(SM_CXSCREEN)
vidHeight = GetSystemMetrics32(SM_CYSCREEN)
End If
Msg = "The current video mode is: "
Msg = Msg & vidWidth & " X " & vidHeight
MsgBox Msg
End Sub

 

[guralay]

Nette çözüm ararken aşağıdaki kodu buldum. Sayfa çözünürlüğününü kendi tespit ediyor.

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

' 16-bit API declaration
Declare Function GetSystemMetrics16 Lib "user" _
Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1



Sub DisplayVideoInfo()
If Left(Application.Version, 1) = 5 Then
' 16-bit Excel
vidWidth = GetSystemMetrics16(SM_CXSCREEN)
vidHeight = GetSystemMetrics16(SM_CYSCREEN)
Else
' 32-bit Excel
vidWidth = GetSystemMetrics32(SM_CXSCREEN)
vidHeight = GetSystemMetrics32(SM_CYSCREEN)
End If
Msg = "The current video mode is: "
Msg = Msg & vidWidth & " X " & vidHeight
MsgBox Msg
End Sub

Yukarıdaki kodu denedim ama
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1 satırında derleme hatası verdi. Ben excel 2000 kullanıyorum.Versiyon kaynaklı olabilir mi.