Microsoft Excel

Herbers Excel/VBA-Archiv

Code für userform ändern


Betrifft: Code für userform ändern
von: Fred
Geschrieben am: 28.11.2018 16:29:26

Hallo zusammen

Ich habe im Netz die nachfolgende Mappe gefunden wo die userform neben Excel geöffnet wird, was für mich sehr praktisch ist. Leider ist Sie immer Rechts von excel und ich würde Sie aber gerne immer Links von Excel geöffnet brauchen. Ich habe zwar versucht den Code zu ändern damit sie immer links geöffnet wird kriege das aber leider nicht hin. Könnte da mal jemand daruf schaun der davon Ahnung hat? und den Code ändern.
Grüße Fred

http://www.herber.de/bbs/user/125727.xls

  

Betrifft: AW: Code für userform ändern
von: Michael G.
Geschrieben am: 28.11.2018 16:52:16

Hallo Fred,

Private Sub UserForm_Initialize()
    Dim hRect As xRECT
    Dim hwnd As Long, hwndForm As Long, hwndMenu As Long
  
    hwnd = FindWindow("Shell_traywnd", "")                  ' Handle TBarWindow ermitteln
    GetWindowRect hwnd, hRect
 
    hwndForm = FindWindow(vbNullString, Me.Caption)
    hwndMenu = GetSystemMenu(hwndForm, 0)
    DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
 
    With Me
        .StartUpPosition = 0
        .Top = 0
        .Left = 0 ' GetSystemMetrics(SM_CXSCREEN) * 0.75
        .Height = hRect.rY1 * 0.75
        Application.WindowState = xlNormal
        Application.Left = .Width: Application.Top = 0: Application.Height = hRect.rY1 * 0.75
        Application.Width = GetSystemMetrics(SM_CXSCREEN) * 0.75 - .Width
    End With
 
 
End Sub



  

Betrifft: AW: Code für userform ändern
von: Fred
Geschrieben am: 28.11.2018 17:06:40

Hallo Michael G.

Vielen dank für Deine schnelle Antwort. funzt prima.
Grüße