Comment redimensionner rapidement plusieurs cellules afin qu’elles s’ajustent parfaitement à leurs images dans Excel ?
Comme vous le savez, Microsoft Excel permet d’ajuster automatiquement la hauteur des lignes et la largeur des colonnes pour qu’elles s’adaptent au contenu saisi, comme une longue chaîne de texte. Toutefois, les commandes « Ajuster automatiquement la hauteur des lignes » et « Ajuster automatiquement la largeur des colonnes » ne s’appliquent pas aux images, car une image insérée n’est pas contenue dans une cellule spécifique.
Redimensionner des cellules pour qu’elles s’ajustent aux images à l’aide de VBA
Redimensionner des images pour qu’elles s’ajustent aux cellules avec Kutools pour Excel
Redimensionner des cellules pour qu’elles s’ajustent aux images à l’aide de VBA
Supposons qu’il y ait deux grandes images dans une feuille de calcul, comme illustré ci-dessous. Comment redimensionner une cellule pour qu’elle s’ajuste parfaitement à l’image située au-dessus ?
Bien sûr, vous pouvez redimensionner chaque cellule manuellement afin qu’elle s’adapte parfaitement à l’image située au-dessus. Toutefois, cette méthode devient vite fastidieuse et chronophage dès qu’un grand nombre d’images est en jeu. Heureusement, il existe une solution bien plus efficace : une macro VBA capable de redimensionner automatiquement toutes les cellules en fonction des images placées au-dessus. Voici comment procéder :
Étape 1 : Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
Étape 2 : Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre du module.
VBA : redimensionnez plusieurs cellules pour qu’elles s’ajustent parfaitement à leurs images.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End SubÉtape 3 : Appuyez sur la touche F5 pour exécuter cette macro.
Désormais, dans la feuille de calcul actuelle, lorsqu’une image est présente, la cellule située juste en dessous s’ajuste automatiquement à sa taille pour s’aligner parfaitement avec l’image placée au-dessus. Consultez la capture d’écran suivante :
Redimensionner des images pour qu’elles s’ajustent aux cellules avec Kutools pour Excel
Vous avez déjà ajusté la taille des cellules comme indiqué dans la capture d’écran ci-dessous, et vous souhaitez maintenant importer des images en les redimensionnant automatiquement pour qu’elles s’ajustent parfaitement à ces cellules ? Dans ce cas, Kutools pour Excel propose une fonctionnalité appelée Importer des images qui vous permet de gérer cette tâche en un clin d’œil.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Cliquez sur KUTOOLS PLUS > Importer/Exporter > Importer des images. Voir la capture d’écran :
2. Dans la boîte de dialogue Importer des images qui s’ouvre, commencez par définir l’Ordre d'importation dans la section correspondante, puis cliquez sur le bouton Ajouter pour importer des images depuis un dossier ou les ajouter une par une en tant que fichiers. Les images apparaîtront alors dans la section Image. Voir la capture d’écran :
3. Cliquez ensuite sur le bouton Importer pour afficher la boîte de dialogue Taille d’importation des images, puis cochez l’option Taille de la cellule correspondante. Voir la capture d’écran :
4. Cliquez sur OK > Importer pour afficher une boîte de dialogue vous permettant de sélectionner les cellules dans lesquelles vous souhaitez importer des images. Voir la capture d’écran :
5. Cliquez sur OK et toutes les images sont désormais importées dans les cellules, redimensionnées pour s’y ajuster parfaitement.
Article associé:
Comment insérer plusieurs images dans une cellule dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels