Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Désactive la sélection de toutes les barres de commandes.
Remarque
L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.
Syntaxe
expression. ReleaseFocus
expression Variable qui représente un objet CommandBars .
Exemple
Cet exemple montre comment ajouter trois boutons vides à la barre de commandes personnalisée et définir le focus sur le bouton central. L’exemple attend ensuite cinq secondes avant de libérer le focus de l’interface utilisateur de toutes les barres de commandes.
Set myBar = CommandBars _
.Add(Name:="Custom", Position:=msoBarTop, _
Temporary:=True)
With myBar
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
.Controls.Add Type:=msoControlButton
.Visible = True
End With
Set myControl = CommandBars("Custom").Controls(2)
With myControl
.SetFocus
End With
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer
CommandBars.ReleaseFocus
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.