Comment redimensionner plusieurs cellules pour adapter rapidement des images dans Excel?
Comme nous le savons, Microsoft Excel prend en charge le redimensionnement automatique de la hauteur de ligne et de la largeur de colonne d'une cellule pour s'adapter au contenu rempli, tel qu'une longue chaîne de texte. Toutefois, la commande Ajuster automatiquement la hauteur de ligne et la commande Ajuster automatiquement la largeur de la colonne ne sont pas valides pour l'image, car une image insérée ne réside pas dans une cellule spécifique.
Redimensionner les cellules pour s'adapter aux images avec VBA
Redimensionner les images pour les adapter aux cellules avec Kutools for Excel 
Redimensionner les cellules pour s'adapter aux images avec VBA
En supposant qu'il y ait deux grandes images dans une feuille de calcul, voyez la capture d'écran suivante. Quelqu'un voudra peut-être redimensionner une cellule pour l'adapter à une image au-dessus de la cellule. Mais comment le réaliser?
Bien sûr, vous pouvez redimensionner automatiquement chaque cellule pour adapter les images au-dessus d'elles. Cependant, cela peut être fastidieux et prendre du temps pour un certain nombre d'images. En fait, nous pouvons appliquer une macro VB pour redimensionner toutes les cellules pour qu'elles correspondent aux images au-dessus d'elles. Vous pouvez le faire avec les étapes suivantes:
Étape 1: maintenez la touche ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
Étape 2: cliquez sur insérer > Moduleet collez la macro suivante dans la fenêtre Module.
VBA: redimensionnez plusieurs cellules en fonction de 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 le F5 clé pour exécuter cette macro.
Maintenant, dans la feuille de calcul actuelle, s'il y a des images, la cellule ci-dessous une image sera redimensionnée pour s'adapter à l'image au-dessus. Voir la capture d'écran suivante:
Redimensionner les images pour les adapter aux cellules avec Kutools for Excel
Si vous avez ajusté la taille des cellules comme illustré ci-dessous, puis que vous souhaitez importer et redimensionner les images pour les adapter à la taille des cellules, comment pouvez-vous le faire rapidement? Dans ce cas, Kutools for Excel's Importer Pictrues L'utilitaire peut vous aider à gérer facilement ce travail.
| Kutools for Excel, avec plus de 120 fonctions pratiques, facilite votre travail. | ||
Après l'installation de Kutools pour Excel, veuillez faire comme ci-dessous :(Téléchargez gratuitement Kutools pour Excel maintenant!)
1. Cliquez Entreprise > Import / Export > Importer des images. Voir la capture d'écran:
2. Dans le popping Importer des images , vous pouvez spécifier l'ordre d'importation en premier dans Commande d'importation section, puis cliquez sur Ajouter pour ajouter des images à partir d'un dossier ou sous forme de fichiers un par un, vous pouvez alors voir que les images sont dans la liste Image section. Voir la capture d'écran:
3. Puis clique L’ bouton pour montrer Importer la taille de l'image boîte de dialogue, puis vérifiez Taille de cellule correspondante option. Voir la capture d'écran:
4. Cliquez OK > L’ pour afficher une boîte de dialogue pour sélectionner les cellules que vous souhaitez importer des images. Voir la capture d'écran:
5. Cliquez OK, et maintenant tous les pirtcures sont importés dans les cellules et redimensionnent leurs tailles pour les cellules.
Importer des images correspondant à la taille des cellules
Article connexe:
Comment insérer plusieurs images dans une cellule dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activer 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 réduit des centaines de clics de souris chaque jour!
