Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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; Trier 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-resize-picture-to-fit-cell-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 Add 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-resize-picture-to-fit-cell-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-resize-picture-to-fit-cell-3

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

doc-resize-picture-to-fit-cell-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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ranjith · 10 months ago
    Hi, Need this code disabling the lock aspect ratio
  • To post as a guest, your comment is unpublished.
    syedsunnygillani@gmail.com · 2 years ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 4 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 5 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 5 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 5 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 6 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 4 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 5 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
      • To post as a guest, your comment is unpublished.
        mentex78 · 1 years ago
        I tried this macro last night and it adjust only the height. The width it doesn't incorrectly. Any Help please?
  • To post as a guest, your comment is unpublished.
    Monika · 7 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 7 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 7 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: