OVH Cloud OVH Cloud

MsgBox emplacement

2 réponses
Avatar
Hezo
Bonjour ,
Je débarque dans votre truc et j'espère que ma question n'a pas déjà été
posée .C'est con de passer pour un idiot !

J'ai une macro qui affiche quatre graphiques .Une commande MsgBox permet de
passer à la valeur suivante .
L'ennui c'est que cette MsgBox se trouve au mileu de l'écran et cache une
partie des graphiques .
Au lieu de la déplacer avec la souris , existe-t-il une commande permettant
de l'envoyer dans un coin . Coin à choisir ,suivant l'interêt des graphiques
.
Merci beaucoup ,

2 réponses

Avatar
anonymousA
non sauf à passer par les fonctions API de windows. Tu connais ?


Bonjour ,
Je débarque dans votre truc et j'espère que ma question n'a pas déjà été
posée .C'est con de passer pour un idiot !

J'ai une macro qui affiche quatre graphiques .Une commande MsgBox permet de
passer à la valeur suivante .
L'ennui c'est que cette MsgBox se trouve au mileu de l'écran et cache une
partie des graphiques .
Au lieu de la déplacer avec la souris , existe-t-il une commande permettant
de l'envoyer dans un coin . Coin à choisir ,suivant l'interêt des graphiques
..
Merci beaucoup ,





Avatar
Michel Pierron
Bonjour Hezo;
Remplace les valeurs 50 par tes propres valeurs.

Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long _
, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long _
, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long _
, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private lgHook As Long

Sub Positionned_MsgBox()
lgHook = SetWindowsHookEx(&H5, AddressOf WinProc, 0, GetCurrentThreadId)
MsgBox "Special msgbox !", 64
End Sub

Private Function WinProc(ByVal lMsg As Long, ByVal wParam As Long) As Long
If lMsg = 5 Then
SetWindowPos wParam, 0, 50, 50, 0, 0, &H15
UnhookWindowsHookEx lgHook
End If
WinProc = False
End Function

MP

"Hezo" a écrit dans le message de
news:41879416$0$19412$
Bonjour ,
Je débarque dans votre truc et j'espère que ma question n'a pas déjà été
posée .C'est con de passer pour un idiot !

J'ai une macro qui affiche quatre graphiques .Une commande MsgBox permet
de

passer à la valeur suivante .
L'ennui c'est que cette MsgBox se trouve au mileu de l'écran et cache une
partie des graphiques .
Au lieu de la déplacer avec la souris , existe-t-il une commande
permettant

de l'envoyer dans un coin . Coin à choisir ,suivant l'interêt des
graphiques

.
Merci beaucoup ,