Registriert seit: 02.12.2017
Version(en): Office 365
04.04.2019, 23:08
(Dieser Beitrag wurde zuletzt bearbeitet: 04.04.2019, 23:14 von Frogger1986.)
Hallo zusammen
Ich bräuchte etwas Hilfe..
Ich hätte gern, wenn ich mein Navigationsformular starte, dass das Access Fenster auf den Navigationsbereich reduziert und mir rechts in die Ecke geschoben wird..
Dazu muss ich aber sagen, dass das auch auf verschieden großen Bildschirmen funktionieren soll.. ich denke dazu brauche ich eine API-Funktion.. allerdings geht das über mein Können hinaus...
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
hier mal was ohne API, getestet in Excel. Um die Größe zu bestimmen, wird die Applikation dazu kurz maximiert dargestellt und dann hab ich im Beispiel mal einfach so festgelegt, dass sie 1/5 der maximierten Größe haben soll
…
Code:
Sub RightUp_App()
'Variablendeklarationen - Integer
Dim maxWidth%, maxHeight%
Dim appLeft%, appTop%
Dim appWidth%, appHeight%
'Applikation maximieren
Application.WindowState = xlMaximized
'Breite und Hoehe feststellen
maxWidth = Application.Width: maxHeight = Application.Height
'Applikation normal anzeigen
Application.WindowState = xlNormal
'Position rechts oben bestimmen
appLeft = maxWidth - (maxWidth / 5): appTop = 0
appWidth = maxWidth / 5: appHeight = maxHeight / 5
'Applikation nach rechts oben verschieben
Application.Left = appLeft: Application.Top = appTop
Application.Width = appWidth: Application.Height = appHeight
End Sub
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.12.2017
Version(en): Office 365
Hallo! Danke Schauan!
Der Code Arbeitet in Excel prima, nur im Access leider nicht! Jedoch hast du mir die Passende Idee zur Lösung geliefert! Vielen Dank dafür!
Eine Menge reden, aber nichts sagen können viele...