Bonjour,
Je découvre aujourd'hui Excel 2007 et n'arrive pas à positionner ma barre perso en flottante ou à droite, à gauche, ... Elle reste désespérément en haut accessible uniquement par le menu Compléments (ou dans la barre d'accès rapide que j'ai aussi découverte).
Mon code :
Sub NouvBarre2()
Dim myBar As CommandBar
Dim NouvBtn As CommandBarButton
Set myBar = CommandBars.Add(Name:="Ma Barre2", Position:=msoBarFloating, _
temporary:=True)
Set NouvBtn = myBar.Controls.Add
With NouvBtn
.Caption = "Mon bouton"
.FaceId = 59
.OnAction = "Ma_macro"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.Tag = "btn1"
.TooltipText = "ceci est la bulle d'aide"
End With
myBar.Visible = True
End Sub
Y a t il une option bloquant la position des barres perso ?
Si quelqu'un peut m'aider, merci !
Je découvre aujourd'hui Excel 2007 et n'arrive pas à positionner ma barre perso en flottante ou à droite, à gauche, ... Elle reste désespérément en haut accessible uniquement par le menu Compléments (ou dans la barre d'accès rapide que j'ai aussi découverte).
Mon code :
Sub NouvBarre2()
Dim myBar As CommandBar
Dim NouvBtn As CommandBarButton
Set myBar = CommandBars.Add(Name:="Ma Barre2", Position:=msoBarFloating, _
temporary:=True)
Set NouvBtn = myBar.Controls.Add
With NouvBtn
.Caption = "Mon bouton"
.FaceId = 59
.OnAction = "Ma_macro"
.State = msoButtonUp
.Style = msoButtonIconAndCaptionBelow
.Tag = "btn1"
.TooltipText = "ceci est la bulle d'aide"
End With
myBar.Visible = True
End Sub
Y a t il une option bloquant la position des barres perso ?
Si quelqu'un peut m'aider, merci !