VBA Excel VerticalAlignment = xlCenter ne fonctionne pas

Le code ci-dessous sélectionne la feuille mais ne parvient pas à aligner les cellules au centre.

                wb.Sheets(1).Columns("A:L").Select
                With Selection
                    .VerticalAlignment = xlCenter
                End With

Merci!

wb.Sheets(1).Activate
wb.Sheets(1).Columns("A:L").Select
With Selection
  .VerticalAlignment = xlCenter
End With

Sélectionne toute la feuille, mais ce n'est pas de changer l'alignement vertical au centre.

wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter

Ne fait rien.

Je ne veux pas HorizontalAlignment 🙂

J'ai découvert la colonne a VerticalAlignment ensemble de xlCenter mais les Cellules en dessous de la colonne n'ont pas VerticalAlignment ensemble de xlCenter.

Êtes-vous sûr que vous voulez VerticalAlignment & pas HorizontalAlignment? juste vérifier
Nous aurons besoin de plus d'informations; cela fonctionne pour moi. Vous êtes peut-être l'intention de l'utiliser HorizontalAlignment au lieu de VerticalAlignment?
Ce code fonctionnera à chaque fois que wb.Sheets(1) est la feuille de calcul active, sinon ce sera un échec. Je suis upvoting cette question parce que c'est un piège commun pour les gens d'apprendre à programmer en VBA par le biais de l'enregistrement de macros.
êtes-vous toujours à la recherche d'une meilleure réponse? Si non, vous devez accepter.

OriginalL'auteur Bruno | 2011-09-15

excel vba

14

Ne pas Select et ne fonctionnent pas avec Selection sans raison. C'est de l'Enregistreur de trucs. Il est plus long à lire, plus lent à s'exécuter, et sujette à erreur.

wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter est beaucoup mieux.

Si vous avez besoin de faire plusieurs choses avec la même gamme, puis utilisez
```
with wb.Sheets(1).Columns("A:L")
      .VerticalAlignment = xlCenter
      .somethingElse
End with
```
OriginalL'auteur Patrick Honorez
3

C'est une erreur courante chez les personnes nouvellement apprentissage le modèle objet d'Excel. Chaque feuille de calcul doit avoir une plage sélectionnée, mais Selection toujours des points à la plage sélectionnée sur la active feuille de calcul. Vous devez .Activate une feuille pour la plage sélectionnée sur cette feuille à la Selection objet.
```
wb.Sheets(1).Activate
wb.Sheets(1).Columns("A:L").Select
With Selection
  .VerticalAlignment = xlCenter
End With 
```
Ou vous pouvez modifier votre code afin de ne pas compter sur la Selection objet:
```
wb.Sheets(1).Columns("A:L").VerticalAlignment = xlCenter
```
OriginalL'auteur adamleerich
2

Remplacer .VerticalAlignment = xlCenter avec .HorizontalAlignment = xlCenter.

OriginalL'auteur Joel

Vous devez vous connecter pour publier un commentaire.