Ein neues, altes Problem
18.11.2003 19:10:33
DieterB
folgendes: kürzlich habe ich eine Anwendung programmiert (siehe Thread von gestern " Tabelle an Monitor anpassen").
Auf meinen Rechner (WIN98, WIN2000 , Excel2000) läuft es einwandfrei.
Heute habe ich die Anwendung unter Excel97 auf einer WINNT 4.0 laufen lassen und einen Fehler entdeckt.
Private Declare
Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Nachfolgende 3 Zeilen sind rot und es erscheint die meldung "Bezeichner fehlt.
Wobei "ENUM" in der 1. Zeile markiert ist.
Public Enum ScreenArgs
HORIZONTAL
VERTIKAL
End Enum
Wer kann mir helfen?
Liegt es 1. am Betriebssystem?
2. an der Excel-version (auf meinem Rechner habe ich die Anwendung unter Excel2000 für Excel97 geschrieben)
oder 3. vielleicht an den fehlenden Admin-Rechten auf WINNT4.0?
Hier der Rest vom Code zum nachvollziehen.
Public
Function ScreenResolution(HV As ScreenArgs) As Long
If HV = 0 Or HV = 1 Then ScreenResolution = GetSystemMetrics(HV)
End Function
Sub Set_Zoom()
'Die Werte hinter .Zoom den eigenen Bedürfnissen anpassen
Select Case ScreenResolution(0)
Case 1600
ActiveWindow.Zoom = 75
'Bildschirmauflösung
'1280*1024
Case 1280
ActiveWindow.Zoom = 156
'1152*864
Case 1152
ActiveWindow.Zoom = 139
'1024*768
Case 1024
ActiveWindow.Zoom = 120
'848*480
Case 848
ActiveWindow.Zoom = 98
'800*600
Case 800
ActiveWindow.Zoom = 95
'768*576
Case 768
ActiveWindow.Zoom = 92
'720*480
Case 720
ActiveWindow.Zoom = 75
'640*480
Case 640
ActiveWindow.Zoom = 78
End Select
End Sub
Ich danke für die Hilfe
Gruß
DieterB