Bonsoir,
J'ai créé une barre d'outils personnalisée (avec des images de boutons
"perso", et affectés à des macros). Tout ceci en VBA.
Le seul petit pb que j'ai est que je n'arrive pas par programmation à
"séparer" les boutons de cette barre d'outils par des traits verticaux par
exemple... Ce n'est pas seulement un pb d'estétique mais surtout de
lisibilité (il y a 16 boutons affichés)
Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils
perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel
par exemple) : la première se met bien en haut à gauche mais la deuxième est
"flottante"....
Merci d'avance
Philippe
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ChrisV
Bonjour Brigitte,
Par ex.
With bo.Controls.Add(msoControlButton) .Caption = "Réservé" .FaceId = 266 .OnAction = "Macro2" .BeginGroup = True ' pour répondre à ta première question... End With
Pour la seconde: regarde du côté des propriétes: RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" a écrit dans le message de news:
Bonsoir, J'ai créé une barre d'outils personnalisée (avec des images de boutons "perso", et affectés à des macros). Tout ceci en VBA. Le seul petit pb que j'ai est que je n'arrive pas par programmation à "séparer" les boutons de cette barre d'outils par des traits verticaux par exemple... Ce n'est pas seulement un pb d'estétique mais surtout de lisibilité (il y a 16 boutons affichés) Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel par exemple) : la première se met bien en haut à gauche mais la deuxième est
"flottante".... Merci d'avance Philippe
Bonjour Brigitte,
Par ex.
With bo.Controls.Add(msoControlButton)
.Caption = "Réservé"
.FaceId = 266
.OnAction = "Macro2"
.BeginGroup = True ' pour répondre à ta première question...
End With
Pour la seconde:
regarde du côté des propriétes:
RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" <philippe.dzewowski@wanadoo.fr> a écrit dans le message
de news: ekq4Fga9DHA.3292@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai créé une barre d'outils personnalisée (avec des images de boutons
"perso", et affectés à des macros). Tout ceci en VBA.
Le seul petit pb que j'ai est que je n'arrive pas par programmation à
"séparer" les boutons de cette barre d'outils par des traits verticaux par
exemple... Ce n'est pas seulement un pb d'estétique mais surtout de
lisibilité (il y a 16 boutons affichés)
Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils
perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel
par exemple) : la première se met bien en haut à gauche mais la deuxième
est
With bo.Controls.Add(msoControlButton) .Caption = "Réservé" .FaceId = 266 .OnAction = "Macro2" .BeginGroup = True ' pour répondre à ta première question... End With
Pour la seconde: regarde du côté des propriétes: RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" a écrit dans le message de news:
Bonsoir, J'ai créé une barre d'outils personnalisée (avec des images de boutons "perso", et affectés à des macros). Tout ceci en VBA. Le seul petit pb que j'ai est que je n'arrive pas par programmation à "séparer" les boutons de cette barre d'outils par des traits verticaux par exemple... Ce n'est pas seulement un pb d'estétique mais surtout de lisibilité (il y a 16 boutons affichés) Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel par exemple) : la première se met bien en haut à gauche mais la deuxième est
"flottante".... Merci d'avance Philippe
Brigitte Dzewowski
Merci pour la réponse je ne connaissais pas la propriété "BeginGroup" qui répond tout à fait à ma première question
quant à la seconde je regarderai à nouveau sur ces propiétés...
Merci encore Philippe
"ChrisV" a écrit dans le message news:
Bonjour Brigitte,
Par ex.
With bo.Controls.Add(msoControlButton) .Caption = "Réservé" .FaceId = 266 .OnAction = "Macro2" .BeginGroup = True ' pour répondre à ta première question... End With
Pour la seconde: regarde du côté des propriétes: RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" a écrit dans le message
de news:
Bonsoir, J'ai créé une barre d'outils personnalisée (avec des images de boutons "perso", et affectés à des macros). Tout ceci en VBA. Le seul petit pb que j'ai est que je n'arrive pas par programmation à "séparer" les boutons de cette barre d'outils par des traits verticaux par
exemple... Ce n'est pas seulement un pb d'estétique mais surtout de lisibilité (il y a 16 boutons affichés) Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel
par exemple) : la première se met bien en haut à gauche mais la deuxième est
"flottante".... Merci d'avance Philippe
Merci pour la réponse
je ne connaissais pas la propriété "BeginGroup" qui répond tout à fait à ma
première question
quant à la seconde je regarderai à nouveau sur ces propiétés...
Merci encore
Philippe
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message news:
eWdDOya9DHA.3648@TK2MSFTNGP11.phx.gbl...
Bonjour Brigitte,
Par ex.
With bo.Controls.Add(msoControlButton)
.Caption = "Réservé"
.FaceId = 266
.OnAction = "Macro2"
.BeginGroup = True ' pour répondre à ta première question...
End With
Pour la seconde:
regarde du côté des propriétes:
RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" <philippe.dzewowski@wanadoo.fr> a écrit dans le
message
de news: ekq4Fga9DHA.3292@TK2MSFTNGP11.phx.gbl...
Bonsoir,
J'ai créé une barre d'outils personnalisée (avec des images de boutons
"perso", et affectés à des macros). Tout ceci en VBA.
Le seul petit pb que j'ai est que je n'arrive pas par programmation à
"séparer" les boutons de cette barre d'outils par des traits verticaux
par
exemple... Ce n'est pas seulement un pb d'estétique mais surtout de
lisibilité (il y a 16 boutons affichés)
Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils
perso l'une à la suite de l'autre (comme dans les barres d'outils
d'excel
par exemple) : la première se met bien en haut à gauche mais la deuxième
est
Merci pour la réponse je ne connaissais pas la propriété "BeginGroup" qui répond tout à fait à ma première question
quant à la seconde je regarderai à nouveau sur ces propiétés...
Merci encore Philippe
"ChrisV" a écrit dans le message news:
Bonjour Brigitte,
Par ex.
With bo.Controls.Add(msoControlButton) .Caption = "Réservé" .FaceId = 266 .OnAction = "Macro2" .BeginGroup = True ' pour répondre à ta première question... End With
Pour la seconde: regarde du côté des propriétes: RowIndex, Left, Top, etc de l'objet CommandBar
ChrisV
"Brigitte Dzewowski" a écrit dans le message
de news:
Bonsoir, J'ai créé une barre d'outils personnalisée (avec des images de boutons "perso", et affectés à des macros). Tout ceci en VBA. Le seul petit pb que j'ai est que je n'arrive pas par programmation à "séparer" les boutons de cette barre d'outils par des traits verticaux par
exemple... Ce n'est pas seulement un pb d'estétique mais surtout de lisibilité (il y a 16 boutons affichés) Autre chose, je ne sais pas comment faire pour mettre 2 barres d'outils perso l'une à la suite de l'autre (comme dans les barres d'outils d'excel
par exemple) : la première se met bien en haut à gauche mais la deuxième est
