Problemstellung:
Nur für 32Bit Office Versionen
Wie kann ich ein Access-Fenster je nach Auflösung skalieren?
Private Declare Function MoveWindow Lib "user32" _ (ByVal Hwnd As Long, _ ByVal X As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal brepaint As Boolean) As Boolean Sub AccessFensterSetzen(intModus As Integer) Select Case intModus Case 1: MoveWindow Application.hWndAccessApp, 10, 10, 640, 480, 1 Case 2: MoveWindow Application.hWndAccessApp, 10, 10, 800, 600, 1 Case 3: MoveWindow Application.hWndAccessApp, 10, 10, 1024, 768, 1 End Select End Sub
Aufruf:
AccessFensterSetzen 1
Würde das Access-Fenster in der Größe 640x480 skalieren
Ähnliche Artikel
Weiterlesen...