Passer au contenu principal

Comment insérer plusieurs images et les redimensionner à la fois dans Excel?

Il est facile pour nous d'insérer une image dans Excel, mais si vous devez insérer plusieurs images à la fois pour gagner du temps, comment pourriez-vous faire?


Insérez plusieurs images et redimensionnez-les en bloc grâce à la fonction Insérer une image

Nous pouvons insérer plusieurs images en vrac grâce à la fonction (Insérer) Image dans Excel, puis les redimensionner simultanément. Veuillez procéder comme suit:

1. Dans la feuille de calcul, cliquez sur insérer > Image.

2. Dans la boîte de dialogue Insérer une image, ouvrez le dossier contenant les images que vous allez insérer, sélectionnez plusieurs images selon vos besoins et cliquez sur le bouton insérer bouton. Voir la capture d'écran:
Notes: En portant Ctrl clé, vous pouvez sélectionner plusieurs images non adjacentes en cliquant dessus une par une; en portant Shift touche, vous pouvez sélectionner plusieurs images adjacentes en cliquant sur la première image et la dernière.

Désormais, les images sont insérées en vrac et empilées dans la feuille de calcul.

3. Gardez ces images sélectionnées et redimensionnez-les en bloc en entrant un nouveau numéro dans les deux Largeur et Hauteur boîtes dans le Taille groupe sur le Format languette. Voir la capture d'écran:

Désormais, toutes les images insérées sont modifiées simultanément à la même taille.

4. À l'heure actuelle, vous devez déplacer manuellement chaque image séparément vers un endroit approprié.

Notes: S'il y a des dizaines d'images qui s'empilent, il faudra beaucoup de temps pour les déplacer manuellement pour les adapter aux endroits.

Lot insérer plusieurs images correspondant au contenu des cellules dans Excel

La Faire correspondre les images d'importation fonctionnalité de Kutools pour Excel, est un outil fantastique qui peut importer et insérer par lots plusieurs images en fonction du contenu des cellules, et redimensionner facilement les images importées de la même manière que la taille de la cellule ou à la taille spécifiée.


ad match images importées 01

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant

Insérez plusieurs images et redimensionnez-les en masse avec OneNote

Pour éviter de déplacer les images d'empilement une par une, cette méthode présente une autre astuce pour insérer plusieurs images à l'aide de OneNote. Veuillez procéder comme suit:

1. Lancez OneNote et créez une nouvelle page. Et puis cliquez insérer > Image.

2. Dans la boîte de dialogue Insérer une image, ouvrez le dossier contenant les images que vous allez insérer, sélectionnez plusieurs images selon vos besoins et cliquez sur le bouton insérer bouton. Voir la capture d'écran:
Notes: En portant Ctrl clé, vous pouvez sélectionner plusieurs images non adjacentes en cliquant dessus une par une; en portant Shift touche, vous pouvez sélectionner plusieurs images adjacentes en cliquant sur la première image et la dernière.

doc insérer plusieurs images OneNote 032

3. presse Ctrl + A pour sélectionner toutes les images insérées dans OneNote, puis appuyez sur Ctrl + C clés pour les copier.

4. Accédez à la feuille de calcul dans Excel et appuyez sur Ctrl + V touches pour coller les images dans la feuille de calcul. Maintenant, toutes les images sont collées verticalement comme illustré à gauche.

5. Sélectionnez l'une des images et appuyez sur Ctrl + A pour les sélectionner tous. Puis redimensionnez les images en vrac en entrant de nouveaux nombres dans les deux Largeur et Hauteur boîtes dans le Taille groupe sur le Format languette. Voir la capture d'écran:

Maintenant, toutes les images spécifiées sont insérées dans Excel et redimensionnées à la même taille en vrac.


Insérez plusieurs images dans Excel avec le code VBA

Avec le code VBA suivant, vous pouvez insérer plusieurs images dans un fichier Excel cellule par cellule.

1. Sélectionnez la première cellule de la plage de destination dans laquelle vous souhaitez insérer des images.

2. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

3Cliquez sur insérer > Moduleet collez la macro suivante dans le Fenêtre du module.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Puis appuyez sur F5 clé pour exécuter ce code.

5. Dans la boîte de dialogue Ouvrir, veuillez ouvrir le dossier qui contient les images que vous souhaitez insérer, sélectionnez plusieurs images que vous allez insérer et cliquez sur le bouton Ouvert bouton. Et toutes les images sélectionnées ont été importées dans votre sélection en fonction de la taille de la cellule. Voir la capture d'écran:


Insérez plusieurs images et ajustez-les automatiquement avec Kutools for Excel

Kutools for Excel's Importer des images L'utilitaire peut vous aider à insérer rapidement plusieurs images dans Excel en fonction de la taille de la cellule ou de la taille de l'image. Vous pouvez également spécifier la hauteur et la largeur des images selon vos besoins.

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant

1Cliquez sur Kutools Plus > Import / Export > Importer des images, voir capture d'écran:

2. Dans le Importer des images boîte de dialogue, procédez comme suit:
(1) Spécifiez l'ordre d'affichage des images à partir du Commande d'importation liste déroulante, vous pouvez choisir Remplir verticalement cellule après cellule or Remplir horizontalement cellule après cellule.
(2) Cliquez sur Ajouter pour sélectionner les fichiers image ou le dossier pour ajouter les images dans la liste Image. Et toutes vos images sélectionnées seront répertoriées dans la zone de liste.
(3) Cliquez sur le Importer la taille bouton;

3. Maintenant dans le Importer la taille de l'image dialogue, vous pouvez choisir la taille de l'image correspondant à vos besoins. Voir la capture d'écran:

4. Après avoir spécifié la taille de l'image, veuillez cliquer OK pour fermer cette boîte de dialogue et revenir à la Importer des images dialogue, cliquez sur L’ bouton pour importer les images.

5. Dans la nouvelle boîte de dialogue Importer des images, choisissez la première cellule de la plage de destination dans laquelle vous allez insérer des images, puis cliquez sur le bouton OK .

À l'heure actuelle, toutes vos images sélectionnées ont été insérées dans vos cellules à partir de la cellule active verticalement ou horizontalement. Voir la capture d'écran de droite:

La Importer des images La fonctionnalité de Kutools for Excel est conçue pour insérer simultanément un lot d'images avec la taille de cellule correspondante, la taille spécifiée ou les propres tailles des images dans Excel. Faites un essai gratuit!


Insérez plusieurs images correspondant à leurs noms avec Kutools for Excel

Kutools for Excel prend également en charge un spectaculaire Faire correspondre les images d'importation fonction pour faire correspondre les images et le contenu des cellules et insérer des images correspondantes uniquement en vrac dans Excel.

Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant

1. Sélectionnez les cellules de nom de l'image dans lesquelles vous souhaitez insérer les images correspondantes, puis cliquez sur Kutools Plus > Import / Export > Faire correspondre les images d'importation. voir capture d'écran:

2. Dans la boîte de dialogue Faire correspondre les images d'importation, procédez comme suit:
(1) Spécifiez l'ordre d'affichage des images à partir du Commande d'importation la liste déroulante;
(2) Cliquez sur Ajouter pour ajouter les images à la zone de liste d'images. Pour votre information, seules les images correspondantes seront répertoriées.
(3) Cliquez ensuite sur Importer la taille .

3. Maintenant dans le Importer la taille de l'image , vous pouvez choisir la taille de l'image correspondant à vos besoins, et cliquer sur le Ok bouton. Voir la capture d'écran:

4. Maintenant, vous revenez au Importer des images dialogue, cliquez sur L’ bouton pour importer les images.

5. Dans la boîte de dialogue Faire correspondre les images d'importation, veuillez spécifier la première cellule de la plage de destination dans laquelle vous allez insérer des images, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Jusqu'à présent, toutes les images sont insérées dans les cellules en fonction de leurs noms relatifs. Voir la capture d'écran de droite:

La Faire correspondre les images d'importation La fonctionnalité de Kutools for Excel peut aider les utilisateurs d'Excel à filtrer rapidement les images en fonction des valeurs de cellule, puis à insérer ces images en masse. De plus, ces images correspondantes peuvent être automatiquement redimensionnées à la taille ou à la taille de cellule spécifiée. Faites un essai gratuit!


Démo: insérez plusieurs images et redimensionnez-les à la fois dans Excel

Kutools for Excel comprend plus de 300 outils pratiques pour Excel, gratuits à essayer sans limitation en 30 jours. Essai gratuit maintenant!      Acheter!


Articles connexes

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations