Discussion :

[tamtam64]

Bonjour,


Je suis à la recherche d'une API pour selectionner les raccourcis du StatusBar par VBA . Je voudrais les enlever et les remettre à la fin de ma macro .
Comme on ne peux pas selectionner ces items par VBA, si quelqu'un aurait une api pour le faire .

Merci

[unparia]

Bonjour
Je ne suis pas certain de comprendre ce que tu veux dire par :

selectionner les raccourcis du StatusBar par VBA . Je voudrais les enlever et les remettre à la fin de ma macro

La barre de statut est une propriété de l'objet Application (Application.StatusBar). Cette propriété retourne ou définit le texte qui y est affiché.
Application.DisplayStatusBar = False permet de cacher cette barre de statut. (True l'affiche)
J'ignore ce que sont "les items d'une statusbar" .
Explique clairement ce que tu veux faire.

[tamtam64]

Bonjour,

J'ai plus ou moins réglé le probleme , mais concernant ma demande :

Je parle de la status bar de Excel ou on a les racoursis et information ( scroll bar avec le zoom, moyenne, max min...) . On fait clic droit et on peut choisir ce que l'on veut afficher . Par contre par VBA on ne peux pas le customiser c'est a dire enlever ou ajouter des racourcis. Il est donc necessaire de le faire par API. Comme je debute en API, je ne suis pas capable de l'écrire et je me demandais si certains sauraient le faire.


Merci d'avance

[eriiic]

Bonjour,

Et pour tes nouvelles questions tu penses faire le même suivi qu'ici http://www.developpez.net/forums/d15...a/#post8723404 ?
eric

[tamtam64]

Bonjour,


Oui c'est le même problème, en effet comme j'ai l'ecran qui est instable je ferme l'application comme ca on ne voit pas que ca saute ...
C'est un enchainement de galères.
Merci pour le fichier je regarderais lundi si ca marche mais ma méthode est stable donc je vais voir si je veux retoucher ou pas (enfin les calculs sont tjs justes c'est le principal).

[eriiic]

Ah. C'était pour le plaisir de m'occuper que tu as redemandé un autre fichier exemple alors... Ok

[tamtam64]

Non du tout mais je n'ai pas le fichier de travail chez moi le week end.

Je souhaiterais modifier une API

Pour modifier la taille de l'application à la partie de la statusbar ou il y'a les indications du processus qui s'affiche.
En fait quand je lance la macro , je voudrais tout reduire et l'afficher en haut de l'ecran (seule la partie de gauche de la status bar).
L'API fonctionne pour reduire la partie du titre mais maintenant je voudrais reduire la taille .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Option Explicit
 
'### Apis ###
Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
 
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, ByVal nIndex As Long)
 
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)
 
Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lpRect As structRECT)
 
'### Constantes ###
'--- GetWindowLong ---
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZEBOX = &H20000
Const WS_SYSMENU = &H80000
'--- SetWindowPos ---
Const SWP_FRAMECHANGED = &H20
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_HIDEWINDOW = &H80
Const SWP_NOACTIVATE = &H10
Const SWP_NOCOPYBITS = &H100
Const SWP_NOMOVE = &H2
Const SWP_NOOWNERZORDER = &H200
Const SWP_NOREDRAW = &H8
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_SHOWWINDOW = &H40
'--- GetWindowRect ---
Private Type structRECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Sub DemasqueTitreAppli()
Call SwitchMasque(True)
End Sub
 
Sub MasqueTitreAppli()
Call SwitchMasque(False)
End Sub
 
Sub SwitchMasque(bool As Boolean)
Dim style&
Dim RECT As structRECT
Dim hwnd&
hwnd& = Application.hwnd
GetWindowRect hwnd&, RECT
'---
style& = GetWindowLong(hwnd&, GWL_STYLE)
If Not bool Then
  style& = style& And Not WS_SYSMENU
  style& = style& And Not WS_MAXIMIZEBOX
  style& = style& And Not WS_MINIMIZEBOX
  style& = style& And Not WS_CAPTION
Else
  style& = style& Or WS_SYSMENU
  style& = style& Or WS_MAXIMIZEBOX
  style& = style& Or WS_MINIMIZEBOX
  style& = style& Or WS_CAPTION
End If
SetWindowLong hwnd&, GWL_STYLE, style&
'---
With RECT
  SetWindowPos hwnd&, 0, .Left + 200, .Top, .Right - .Left, .Bottom - .Top - 25, _
      SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
 
 
 
End With
End Sub

avec une modification telle que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    'Affichage écran
Sub Optimization(ByVal Mode As Boolean)
        Static MyWidth As Double: Static MyHeight As Double
 
    If Mode Then
        MyWidth = Application.Width
        MyHeight = Application.Height
        Call API_Screen.MasqueTitreAppli
        Application.WindowState = xlNormal
        Application.Width = 150
        Application.Height = 25.5
    Else
        Call API_Screen.DemasqueTitreAppli
        Application.WindowState = xlNormal
        Application.Width = MyWidth
        Application.Height = MyHeight
        Application.WindowState = xlMaximized
    End If
End Sub

Mais ca marche pas bien, il semble qu'il faille que je fasse la modification de la taille directement dans l'API.

Pouvez-vous m'aider?

[antonysansh]

Bonjour le forum,

Ce n'est pas un truc comme ça que tu cherches ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Afficher_Masquer_Barre_Etat()
    Dim cmdB As CommandBar
        Set cmdB = Application.CommandBars("Status Bar")
        cmdB.Visible = Not cmdB.Visible
fin:
    Set cmdB = Nothing
End Sub

[tamtam64]

Bonjour,

non non lol, je veux pouvoir voir la statusbar, mais seulement la partie de gauche de la statusbar , un petit rectangle. Car je met à jours des indications sur l'avancé du process. Je ne souhaite pas la cacher entièrement . Si on réduit la taille comme j'ai fait avec la suppression de la barre du haut, et que je reduit la taille comme j'ai fait c'est moche . Mon code fonctionne mais il faut pouvoir modifier la taille dans l'api et pas une partie dans l'api et une autre en vba .

Merci quand même

[clementmarcotte]

Bonjour,

Tant et aussi longtemps que tu restes sur un Excel à 32 bits, et cela, tu es le seul à le savoir, tu peux utiliser(Ou du moins essayer d'utiliser) le contrôle StatusBar de VB6. (Microsoft StatusBar Control)

P.S. Si tu ne l'as pas sur ta machine, tu devrais le retrouver par là.

P.P.S J'espère que Microsoft l'a débarré. Déjà il était inutilisable en VBA si VB6 n'était pas installé sur la machine.

[tamtam64]

Bonjour,

Merci pour le lien , je vais essayer de l'utiliser, comme tu dis c'est pas gagné lol