Aflæs skærmopløsning og zoom efter opløsning

Sådan aflæses højde/bredde:

Declare Function GetSystemMetrics Lib "user32"(ByVal nindex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Sub DisplayVideoInfo()
  vidWidth = GetSystemMetrics(SM_CXSCREEN)
  vidHeight = GetSystemMetrics(SM_CYSCREEN)

End Sub

Og du kan indstille zoom-procenten med:

ActiveWindow.zoom = 100

Jeg kan ikke få det til at virke?
Det skal lige siges at det er Excel 95 jeg bruger.

Jeg kan godt få det aktive vindue til at blive 75%

Sub Makro1()
    ActiveWindow.Zoom = 75
End Sub

Men aflæse skærmopløsningen, og få det sat ind i en celle kan jeg ikke!

Jeg bruger dette for at sætte skærmopløsningen
I dette tilfælde er det viste område altid fra kolonne A til kolonne P, uanset  skærmopløsningen


Private Sub Worksheet_Activate()
Columns("A:P").Select
    Range("P1").Activate
    ActiveWindow.Zoom = True
    Range("A1").Select
End Sub

Det virker bare tusind Tak
Du er hammer dygtig kabbak
Hilsen fagpoler

Også tak til erikjuul
Hilsen fagpoler

Tak for points, men er det ikke rigeligt for det svar, vil du ikke have lidt retur.

Jeg har et andet problem, når jeg bruger XP og laver en lykke, så nakøren flyttes uden for skærmbilledet flytter skærmbilledet ikke med, som den gør i 95

Ikke forstået, den må jeg lige have en gang til

fx i følgende kode
 
    Application.ScreenUpdating = False
    If ActiveSheet.Name = "Krediter" Then
    ActiveSheet.Unprotect
    Set MinCell = ActiveCell
    Set MinSheet = ActiveSheet
    If ActiveCell = "" Then
    MsgBox "Du skal Indtast Kunde Nr."
    GoTo Slut
    End If
    Dim X As Variant
    X = ActiveCell
    Sheets("Kunder").Select 'Er navnet på det Ark hvor navnet hentes
    Range("A2").Select
    Do While ActiveCell <> X
    If ActiveCell = "" Then
    MsgBox "Nummeret findes ikke"
    GoTo Slut1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
    Sheets("Krediter").Select


*********************************************************
virker ikke i XP
Application.ScreenUpdating = True

jeg har ikke XP kun 2000, men er det 'Application.ScreenUpdating = True', der ikke virker i XP ?.

Det jeg mener er, hvis man fx skal finde en kunde i en kundekartotek med en lykke, så makøren løber uden for billedet finder makøren godt nok kunden, men skærmbilledet flytter ikke med.
(man skal lige vippe med piltasterne)

Det virker helle ikke i 2000

i 95 står makøen altid SYNLIG i skærmbilledet når koden er slut

Husker du at selecte cellen efter 'Application.ScreenUpdating = True'

Hvordan gør man det, når makøren fx med en lykke skal løbe fra celle A2 til den finder kunde nr. fx 250 i fx celle A300

Do While ActiveCell <> X
    If ActiveCell = "" Then
    MsgBox "Nummeret findes ikke"
    GoTo Slut1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
Application.ScreenUpdating = True
ActiveCell.select

jeg skal i seng nu, en arbejdsdag venter ;-)

Ok tusind tak
Hilsen fagpoler