|
Member
Beiträge: 46
| Hallo Mitstreiter,
Die Probleme hatten keine gemeinsame Ursache:
- Die zu kleinen Icons waren durch eine andere Bildschirmauflösung zu beheben. Anscheinend kommt Access 2007 mit sehr hohen Auflösungen nicht zurecht.
- Die Minimierung des ribbon mittels sendkeys habe ich nicht rekonstruiern können. Meistens klappt es ja. Das habe ich dadurch 'gelöst', dass wenn das minimieren nicht gelingt, das ribbon ganz eliminiert wird. Was besseres habe ich nicht gefunden und gebe mích zufrieden.
Der code ist jetzt:
Function RibbonState() As Long
RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)
End Function
Function MinimizetheRibbon()
Dim fehlertext As String
Dim ACCversion As Double
fehlertext = ""
If CInt(SysCmd(acSysCmdAccessVer)) > 20 Then
ACCversion = CInt(SysCmd(acSysCmdAccessVer)) / 10
Else
ACCversion = CInt(SysCmd(acSysCmdAccessVer))
End If
If RibbonState = 0 Then
SendKeys "^{F1}"
End If
If RibbonState = 0 Then
fehlertext = fehlertext & "Ribbon wurde nicht minimiert. Fehler / Höhe : '" & Error$ & "' / " & CStr(CommandBars("Ribbon").Controls(1).Height): Err = 0
If ACCversion < 13 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
CommandBars.ExecuteMso "MinimizeRibbon"
End If
fehlertext = fehlertext & "Nach 2. Versuch Fehler / AccVers : '" & Error$ & "' / " & AccessVersionID: Err = 0
End If
Euer DH | |
|
Access 2007 Runtime unter Windows 10