ich brauche in meinem Makroprogramm die Monitorauflösung.
dazu hab ich dieses kleine Beispiel gefunden, was auch prima funktioniert, allerdings nur, wenn ich Libreoffice zunächst mit Administratorrechten starte.
sonst nicht. Obwohl ich selber mit einem Admin Konto bei Win 10 pro angemeldet bin.
Code: Alles auswählen
Sub Bildschirmaufloesung
Const HKEY_LOCAL_MACHINE = &H80000002
GlobalScope.BasicLibraries.LoadLibrary("ImportWizard")
sTemplateKeyName = "SYSTEM\ControlSet001\Control\UnitedVideo\CONTROL\VIDEO\{274C3232-9E50-11E9-9450-C69596D29C81}\0000\"
sTemplateValueName = "DefaultSettings.XResolution"
X_Setting = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
sTemplateValueName = "DefaultSettings.YResolution"
Y_Setting = QueryValue(HKEY_LOCAL_MACHINE, sTemplateKeyName, sTemplateValueName)
msgbox "Die Bildschirmauflösung ist " & X_Setting & " x " & Y_Setting
End Sub
was könnte ich tun?