Méthode CommandBarControl.Move (Office)

Cette méthode déplace le contrôle CommandBarControl spécifié vers une barre de commandes existante.

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. Déplacer (barre, avant)

expression Obligatoire. Variable qui représente un objet CommandBarControl .

Parameters

Nom Requis/Facultatif Type de données Description
Bar Facultatif Variant Objet Command représentant la barre de commandes de destination du contrôle. Si vous n'indiquez pas cet argument, le contrôle est déplacé à la fin de la barre de commandes où le contrôle se trouve actuellement.
Avant Facultatif Variant Numéro représentant la position à laquelle le contrôle doit être inséré. Le contrôle est inséré avant celui qui occupait cette position. Si vous n'indiquez pas cet argument, le contrôle est inséré dans la même barre de commandes.

Exemple

Cet exemple montre comment déplacer le premier contrôle de zone de liste modifiable de la barre de commandes personnalisée à la position antérieure au septième contrôle de cette barre de commandes. L’exemple définit la balise sur Zone de sélection et affecte au contrôle une priorité basse afin qu’il soit probablement supprimé de la barre de commandes si tous les contrôles ne tiennent pas dans une ligne.

Set allcontrols = CommandBars("Custom").Controls 
For Each ctrl In allControls 
    If ctrl.Type = msoControlComboBox Then 
        With ctrl 
            .Move Before:=7 
             .Tag = "Selection box" 
             .Priority = 5 
         End With 
         Exit For 
    End If 
Next

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.