Ereigniscode für Minimieren/Maximieren von Excel

Private Sub Workbook_WindowResize(ByVal Wn As Window) Select Case Wn.WindowState Case xlMaximized MsgBox "maximiert" Case xlMinimized MsgBox "minimiert" Case xlNormal MsgBox "weder noch" Case Else MsgBox "unerwartet" End Select MsgBox ThisWorkbook.Parent.WindowState 'Zustand der Excelinstanz End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
in der Zip eine Mappe mit dem Anwendungsbeispiel. Minimieren, maximieren und normalisieren löst in Modul basWindowSize eine Msgbox aus. Die Klasse in der Mappe registriert die DLL automatisch bei Bedarf. https://www.herber.de/bbs/user/78901.zip
Der Code in der DLL:

' **********************************************************************
' Modul: clsWindowResize Typ: Klassenmodul
' **********************************************************************

Option Explicit

Public Event WindowResize(ByVal plngSize As Long)

Private Sub Class_Initialize()
    Load Form1
    Set Form1.mobjWindowResizeClass = Me
    Form1.Timer1.Interval = 100
End Sub

Private Sub Class_Terminate()
    Form1.Timer1.Interval = 0
    Unload Form1
End Sub

Public Property Let Excel_Hwnd(ByVal pvlngExcel_Hwnd As Long)
    Form1.ExcelHwnd = pvlngExcel_Hwnd
End Property

Friend Property Let NewWindowSize(ByVal pvWindowSize As Long)
    RaiseEvent WindowResize(pvWindowSize)
End Property

' **********************************************************************
' Modul: Form1 Typ: Userform
' **********************************************************************

Option Explicit

Private Declare Function GetWindowPlacement Lib "user32.dll" ( _
    ByVal hWnd As Long, _
    ByRef lpwndpl As WINDOWPLACEMENT) As Long

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Type WINDOWPLACEMENT
    Length As Long
    flags As Long
    showCmd As Long
    ptMinPosition As POINTAPI
    ptMaxPosition As POINTAPI
    rcNormalPosition As RECT
End Type

Public mobjWindowResizeClass As clsWindowResize

Private mlngExcelHwnd As Long
Private mlngWindowSize As Long

Private Sub Form_Terminate()
    Set mobjWindowResizeClass = Nothing
End Sub

Private Sub Timer1_Timer()
    Static sblnNotFirstTime As Boolean
    Dim udtWinEst As WINDOWPLACEMENT
    udtWinEst.Length = Len(udtWinEst)
    Call GetWindowPlacement(mlngExcelHwnd, udtWinEst)
    If mlngWindowSize <> udtWinEst.showCmd Then
        mlngWindowSize = udtWinEst.showCmd
        If sblnNotFirstTime Then _
            mobjWindowResizeClass.NewWindowSize = mlngWindowSize
        sblnNotFirstTime = True
    End If
End Sub

Friend Property Let ExcelHwnd(ByVal pvlngExcelHwnd As Long)
    mlngExcelHwnd = pvlngExcelHwnd
End Property

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Ereigniscode für Minimieren/Maximieren von Excel

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ereigniscode für Minimieren/Maximieren von Excel

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread