Note: The other languages of the website are Google-translated. Back to English

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

Redimensionner les images insérées pour s'adapter aux cellules avec Kutools for Excel

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droite 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.

doc-redimensionner les images pour les adapter aux cellules1

É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:

doc-redimensionner les images pour les adapter aux cellules2

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.


flèche bleue bulle droite Redimensionner les images insérées pour s'adapter aux cellules avec Kutools for Excel

Si vous avez Kutools pour 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 pour 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:

doc-redimensionner-image-pour-adapter-cellule-1

É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:

doc-redimensionner-image-pour-adapter-cellule-2

É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:

doc-redimensionner-image-pour-adapter-cellule-3

Vous pouvez maintenant voir que les images sont insérées pour s'adapter aux cellules.

doc-redimensionner-image-pour-adapter-cellule-4

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?


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (15)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
La macro FitPic notée ci-dessus est Sweeeeeet ! J'ai pris un tas de photos d'articles de vente de garage qui sont finalement allés à l'Armée du Salut. J'ai documenté des images et des valeurs dans Excel à des fins fiscales. Cette macro a fonctionné du premier coup ! :mdr:
Ce commentaire a été minimisé par le modérateur sur le site
Instructions pour Excel
Ce commentaire a été minimisé par le modérateur sur le site
Merci c'était parfait !!
Ce commentaire a été minimisé par le modérateur sur le site
Œuvres!! Mais j'ai une question, je veux insérer un img dans une plage de cellules fusionnées, comment puis-je le faire?
Ce commentaire a été minimisé par le modérateur sur le site
[citation]Fonctionne !! Mais j'ai une question, je veux insérer un img dans une plage de cellules fusionnées, comment puis-je le faire?Par Marcello[/quote] Marcelo avez-vous obtenu le marco mis à jour pour la cellule fusionnée ? J'essaie de faire la même chose. Merci
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé cette macro hier soir et elle n'ajuste que la hauteur. La largeur n'est pas incorrecte. Une aide s'il vous plaît?
Ce commentaire a été minimisé par le modérateur sur le site
Public Sub FitPic()
'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
'Légère modification pour redimensionner en cellules fusionnées
En cas d'erreur GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
Avec sélection
PicWtoHRatio = .Largeur / .Hauteur
Terminer par
Avec Selection.TopLeftCell
CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
Terminer par
Sélectionnez Case PicWtoHRatio / CellWtoHRatio
Le cas est > 1
Avec sélection
.Width = .TopLeftCell.MergeArea.Width
.Hauteur = .Largeur / Rapport PicWtoHR
Terminer par
Case Else
Avec sélection
.Height = .TopLeftCell.MergeArea.Height
.Largeur = .Hauteur * RapportPicWtoHR
Terminer par
End Select
Avec sélection
.Top = .TopLeftCell.MergeArea.Top
.Left = .TopLeftCell.MergeArea.Left
.Placement = xlMoveAndSize
Terminer par
Exit Sub
PAS_FORME :
MsgBox "Sélectionnez une image avant d'exécuter cette macro."
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci, cela a fonctionné, mais j'ai environ 500 photos, donc je ne veux pas les faire une à la fois - comment puis-je les faire toutes en même temps, s'il vous plaît ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'aime vraiment cette macro qui fait que les images s'adaptent aux cellules, cela m'a vraiment aidé avec des trucs de travail. Mais est-ce que quelqu'un sait comment écrire ce code pour applescript ? Je dois utiliser macs et la version apple d'excel, Numbers, n'utilise que applescript. Aider! Merci beaucoup Harry
Ce commentaire a été minimisé par le modérateur sur le site
cela fonctionne si les cellules ne sont pas fusionnées. malheureusement, j'ai fusionné certaines cellules et cela ne tient que dans la cellule supérieure gauche, ce qui rend la photo très petite.
Ce commentaire a été minimisé par le modérateur sur le site
Génial! Fonctionne très bien! Exactement ce que je cherchais! Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Salut ..
solution parfaite. Mais je veux que cette fonction fonctionne avec le bouton de commande. J'ai besoin de créer un bouton de commande pour insérer et redimensionner automatiquement à la taille de la cellule. s'il vous plaît aider.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, besoin de ce code pour désactiver le rapport d'aspect de verrouillage
Ce commentaire a été minimisé par le modérateur sur le site
Merci, ça marche vraiment !
Ce commentaire a été minimisé par le modérateur sur le site
La macro posiziona l'image "Immagine 2" au centre de la cellule ("D5"), anche se questa è unita ad altre celle. Spero possa esservi utile

Sub ImpFoto()
Dim hcell As Single ' altezza cella
Dim Lcell As Single ' larghezza cella
Dim hfoto As Single ' altezza foto
Dim Lfoto As Single ' larghezza photo
Dim Rfoto As Single ' rapport photo h/L

Plage("D5").Sélectionnez

hcell = Sélection.Hauteur
Lcell = Sélection.Largeur
hfoto = ActiveSheet.Shapes("Image 2").Hauteur
Lfoto = ActiveSheet.Shapes("Image 2").Largeur
Rfoto = hfoto / Lfoto

Si hfoto < Lfoto Alors
Lfoto = Lcell - 10
hfoto = Lfoto * Rfoto

Si hfoto > hcell Alors
hfoto = hcell - 3
Lfoto = hfoto / Rfoto
Si fin

ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Image 2").Width = Lfoto
autre
hfoto = hcell - 10
Lfoto = hfoto / Rfoto
ActiveSheet.Shapes("Immagine 2").Height = hfoto
ActiveSheet.Shapes("Image 2").Width = Lfoto
Si fin

Plage("D5").Sélectionnez

Avec ActiveSheet.Shapes("Immagine 2")
.Haut = Sélection.Haut + (Sélection.Hauteur - .Hauteur) / 2
.Gauche = Sélection.Gauche + (Sélection.Largeur - .Largeur) / 2
Terminer par
End Sub
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés