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 Kutools Plus >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 Dimensions bouton. Voir la capture d'écran:

Étape 3: Vérifier Taille de cellule correspondante option. Puis clique Ok > Importer 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:

Comment redimensionner plusieurs cellules pour adapter rapidement les images au-dessus d'elles dans Excel?