Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment centrer une image dans une cellule Excel?

Cet article vous montrera une méthode de déplacement des images au centre des cellules dans une feuille de calcul Excel comme ci-dessous la capture d'écran illustrée.

Déplacer l'image au centre de la cellule avec le code VBA


Déplacer l'image au centre de la cellule avec le code VBA.


Veuillez procéder comme suit pour déplacer des images vers le centre des cellules dans une feuille de calcul dans Excel.

1. Ouvrez la feuille de calcul contenant les images à centrer dans les cellules, puis appuyez sur autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît cliquez insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.

Code VBA: déplacez les images au centre des cellules dans la feuille de calcul

Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub

Remarques:

1). Dans le code, l'image 2 sera déplacée au centre de la cellule A1, l'image 4 sera déplacée vers la cellule A2 et l'image 6 sera déplacée vers la cellule A3.

2). Pour plus de photos, vous devez vous déplacer au centre des cellules, s'il vous plaît ajouter ce code dans le code VBA et changer le Nom de l'image et Adresse de la cellule en fonction de votre besoin.

With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With

3. appuie sur le F5 clé pour exécuter le code.

Ensuite, toutes les images spécifiées seront déplacées au centre de certaines cellules immédiatement comme ci-dessous la capture d'écran illustrée.


Articles connexes:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.