Comment redimensionner les images pour les adapter aux cellules dans Excel?
Les images normalement insérées flottent au-dessus des cellules, et la plupart du temps une image couvre beaucoup de cellules. Si une feuille de calcul contient un grand nombre d'images, vous souhaiterez peut-être placer chaque image dans une seule cellule. Mais comment y faire face? En fait, il existe plusieurs façons délicates de nous aider à redimensionner rapidement les images en fonction de la taille des cellules.
Redimensionner une image sélectionnée pour l'adapter à une seule cellule avec VB Macro
Redimensionnez les images insérées pour les adapter aux cellules avec Kutools for Excel
Redimensionner une image sélectionnée pour l'adapter à une seule cellule avec VB Macro
Nous pouvons appliquer des macros VB pour redimensionner une image sélectionnée pour l'adapter à une seule cellule, mais pas redimensionner manuellement la largeur et la hauteur d'une image. Vous pouvez le faire avec les étapes suivantes:
Étape 1: insérez les images dans une feuille de calcul et sélectionnez une image que vous redimensionnerez pour l'adapter à une seule cellule.
Étape 2: maintenez la touche ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
Étape 3: cliquez sur insérer > Moduleet collez la macro suivante dans la fenêtre Module.
VBA: redimensionne une image sélectionnée pour l'adapter à une cellule.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End SubÉtape 4: appuyez sur le F5 clé pour exécuter cette macro.
Étape 5: Répétez les étapes ci-dessus pour redimensionner d'autres images afin qu'elles s'adaptent à une seule cellule.
Désormais, toutes les images insérées sont redimensionnées et s'insèrent dans les cellules. Voir la capture d'écran suivante:
Notes: Vous ne pouvez redimensionner qu'une seule image une fois. Si vous sélectionnez plusieurs images une fois, une boîte de dialogue d'avertissement apparaîtra.
Redimensionnez les images insérées pour les adapter aux cellules avec Kutools for Excel
Si vous avez Kutools for Excel installé, vous pouvez appliquer son Importer des images outil pour redimensionner toutes les images pour les adapter aux cellules ou avec une hauteur fixe lors de l'insertion d'images.
Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant.
Étape 1: Sélectionnez les cellules de plage dans lesquelles vous souhaitez insérer des images et cliquez sur le bouton Entreprise >Import / Export > Importer des images. Voir la capture d'écran suivante:
Étape 2: dans le Importer des images boîte de dialogue, sélectionnez l'ordre d'insertion dans la liste déroulante, puis cliquez sur Ajouter pour ajouter les images dont vous avez besoin à partir d'un fichier ou d'un dossier, puis cliquez sur Taille bouton. Voir la capture d'écran:
Étape 3: Vérifier Taille de cellule correspondante option. Puis clique Ok > L’ pour fermer les boîtes de dialogue. Voir la capture d'écran:
Vous pouvez maintenant voir que les images sont insérées pour s'adapter aux cellules.
Notes: Vous pouvez également spécifier la hauteur et la largeur de la cellule à l'étape 3 pour redimensionner les images.
Si vous voulez en savoir plus à ce sujet Importer une image fonctionnalité, veuillez visiter ici.
Article connexe:
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!
