A voir également:
- Bouton reduire dans userform
- Comment réduire la taille d'un fichier - Guide
- Reduire taille image - Guide
- Reduire clavier iphone - Guide
- Diagnostic bouton photo - Accueil - Outils
- Raccourci réduire fenetre - Guide
1 réponse
Bonjour,
A ma conaissance ce n'est pas possible avec les propriétés des userform ou les fonctions standards VBA. Mais je peux me tromper, en particulier peut-être que dans Excel 2007 il y a une évolution que j'ignore.
En tout cas ce n'est faisable d'aprés moi qu'en utilisant les APIs Windows.
C'est sans doute pas trés recommandé mais j'ai trouvé sur un site un code qui fonctionne en collant le code suivant dans le code associé à l'userform :
A+
A ma conaissance ce n'est pas possible avec les propriétés des userform ou les fonctions standards VBA. Mais je peux me tromper, en particulier peut-être que dans Excel 2007 il y a une évolution que j'ignore.
En tout cas ce n'est faisable d'aprés moi qu'en utilisant les APIs Windows.
C'est sans doute pas trés recommandé mais j'ai trouvé sur un site un code qui fonctionne en collant le code suivant dans le code associé à l'userform :
Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
End Sub
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
A+
