Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Comment insérer plusieurs images et les redimensionner à la fois dans Excel?

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 Mission 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 des tours 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 série Faire correspondre les images d'importation fonctionnalité de Kutools for Excel, est un outil fantastique qui peut importer et insérer par lots plusieurs images en fonction du contenu de la cellule, 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 pour Excel - Comprend plus de

300
des outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités
30
-journée, aucune 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 Mission 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 des tours 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 Open 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 pour 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 pour Excel - Comprend plus de

300
des outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités
30
-journée, aucune 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 série Importer des images La fonctionnalité de Kutools for Excel est conçue pour insérer un lot d'images simultanément 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 dramatique 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 pour Excel - Comprend plus de

300
des outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités
30
-journée, aucune 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 série 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 vrac. En outre, ces images correspondantes peuvent être redimensionnées automatiquement à la taille spécifiée ou à la taille de cellule. Faites un essai gratuit!


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

Kutools pour Excel comprend plus de

300
des outils pratiques pour Excel, gratuits à essayer sans limitation dans
30
jour. Essai gratuit maintenant!      Acheter!

Articles connexes


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
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 que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. 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é en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (47)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
La notice avec le titre : Insérer plusieurs images dans Excel avec le code VBA est tout simplement géniale rapide et efficace !!! c'est une bonne alternative pour acheter et installer des plugins. Ceci est mon premier commentaire en ligne !! félicitations !
Ce commentaire a été minimisé par le modérateur sur le site
Salut, je suis capable d'utiliser le module InsertPictures et fonctionne correctement jusqu'au jpg. Cependant, il ne veut pas fonctionner pour PNG. Pouvez-vous s'il vous plaît conseiller? Cordialement, Laurent
Ce commentaire a été minimisé par le modérateur sur le site
Dans le premier sujet "Insérer plusieurs images dans Excel avec le code VBA", comment insérer une image dans deux cellules. par exemple, la première image sera insérée dans les cellules A1 et A2, la deuxième image sera insérée dans les cellules A3 et A4 et ainsi de suite.
Ce commentaire a été minimisé par le modérateur sur le site
bon support pour Excel ..... vous aidez vraiment à gagner du temps. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Super article! Mais j'ai d'autres façons de faire la même chose ..... =================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Select With Selection .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34 # .ShapeRange.Width = 80 # Fin avec la plage suivante ("a1"). Sélectionnez End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il une version de Kuttools pour Mac ?
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de modifier ce code vba pour insérer 4 images dans un motif en forme de grille comme celui-ci : pic1 en A1, pic2 en A2, pic3 en B1 et pic4 en B2 ? Réservoirs!
Ce commentaire a été minimisé par le modérateur sur le site
tant pis j'ai trouvé comment faire :)
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Pourriez-vous s'il vous plaît partager le code modifié?
Ce commentaire a été minimisé par le modérateur sur le site
Sub InsertPictures() 'Mise à jour 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
Ce commentaire a été minimisé par le modérateur sur le site
Pourriez-vous s'il vous plaît m'aider à modifier le code pour insérer la colonne et la ligne fusionnées. Sub InsertPictures() 'Mise à jour 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Colonne Si IsArray(PicList ) Alors xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Ce commentaire a été minimisé par le modérateur sur le site
sélectionnez les cellules et redimensionnez-les en largeur et en hauteur selon vos besoins.. si vous avez dix photos, sélectionnez dix cellules ou plus, sélectionnez-en plus.. !! puis appuyez sur Alt + F11 puis cliquez sur INSERER PUIS cliquez sur MODULE PUIS COLLER LE CODE SUIVANT TEL QU'IL EST. 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 + 20140513 Next End If End Sub APRÈS LE AU-DESSUS DU CODE, APPUYEZ SUR F1 .. PUIS SÉLECTIONNEZ LES FICHIERS DE L'ORDINATEUR OÙ ILS SONT. JUSQU'À VOTRE BESOIN. ALORS SI VOUS N'AVEZ PAS ENREGISTRÉ LE CAHIER DE TRAVAIL, IL VOUS DEMANDERA DE LE SAUVEGARDER. SI VOUS L'AVEZ DÉJÀ SAUVEGARDÉ. ALORS VOTRE TRAVAIL EST ESPOIR QUE CELA AIDE .. Ali .. !!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup, ça marche
Ce commentaire a été minimisé par le modérateur sur le site
Salut EXcel Masters, j'ai 2 feuilles Excel. Un avec plus d'une centaine d'images et une description de l'image dans la cellule suivante. L'autre feuille après sélection est probablement partie avec 40 descriptions de celle-ci. Comment puis-je transférer les images sur cette feuille selon ma sélection. Merci à tous
Ce commentaire a été minimisé par le modérateur sur le site
ou vous utilisez directement image-xls . avec ce complément Excel, vous pouvez insérer un nombre illimité d'images dans une cellule Excel ou sous forme de commentaire. il redimensionne également vos photos. et il est possible d'ordonner et de filtrer votre feuille Excel, y compris les Images !
Ce commentaire a été minimisé par le modérateur sur le site
Je suis un utilisateur Mac et une fois que j'ai copié le code dans le nouveau module et que je l'ai exécuté, rien ne se passe. Dois-je faire quelque chose sous mac pour exécuter le code VBA? Merci
Ce commentaire a été minimisé par le modérateur sur le site
[quote]ou vous utilisez directement image-xls . avec ce complément Excel, vous pouvez insérer un nombre illimité d'images dans une cellule Excel ou sous forme de commentaire. il redimensionne également vos photos. et il est possible d'ordonner et de filtrer votre feuille Excel, y compris les Images !Par Armin[/quote] [quote]La notice avec le titre : Insérer plusieurs images dans Excel avec du code VBA est tout simplement géniale rapide et efficace !!! c'est une bonne alternative pour acheter et installer des plugins. Ceci est mon premier commentaire en ligne !! félicitations !Par Rahul Gupta[/quote] J'ai essayé ceci et cela semble bien fonctionner - mais vous ne pouvez pas commander ou filtrer la liste Excel, y compris les photos. aussi les photos ne sont pas proportionnelles à l'échelle. j'ai donc acheté image-xls - coûte un peu, mais fait tout ce dont j'ai besoin
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour! Une raison pour laquelle "Sub InsertPictures()" ne fonctionnerait pas dans Excel 2003 ? J'ai déjà ajouté la référence à Microsoft.Scripting.Runtime Merci d'avance Gilberto
Ce commentaire a été minimisé par le modérateur sur le site
c'est très utile pour moi. C'est du beau travail...... Merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'ai essayé le code sur ma feuille de calcul et cela a fonctionné parfaitement. Jusqu'à ce que j'essaie de filtrer. Trouvez que la dernière image sera toujours affichée sur le résultat du filtre. quelqu'un peut aider?
Ce commentaire a été minimisé par le modérateur sur le site
En utilisant le programme VBA ci-dessous, vous ne pouvez pas insérer l'image dans la cellule fusionnée, 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.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList ) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Veuillez me conseiller de modifier le VBA .
Ce commentaire a été minimisé par le modérateur sur le site
Salut à tous, c'est super ! Je suis vos tutos depuis quelques temps déjà. Ce que j'espérais que vous pourriez m'aider, c'est comment puis-je changer cela de coller les images dans une colonne à travers une rangée? Et comment puis-je ajouter le "Nom complet du fichier (c'est-à-dire example_image.jpg)" à la ligne au-dessus. Rangée 'A' : "Filename.jpg" Rangée 'B' : "Vignette de l'image" Merci !!
Ce commentaire a été minimisé par le modérateur sur le site
Hé, j'ai inséré les images en utilisant mon propre code VBE. Et maintenant j'ai essayé de le partager avec les autres, malheureusement ils ne peuvent pas voir les photos... Je serais reconnaissant si quelqu'un pouvait me dire ce qui me manque. Merci
Ce commentaire a été minimisé par le modérateur sur le site
Ce code fonctionne PRESQUE pour mes besoins. J'ai 200 images, chaque image doit aller sur sa propre feuille. Comment puis-je m'y prendre?
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je modifier le code suivant afin que les images soient remplies dans une plage de cellules sélectionnée sur plusieurs colonnes et lignes plutôt que dans des cellules consécutives dans des lignes successives de la même colonne ? Sub InsertPictures() 'Mise à jour 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Colonne Si IsArray(PicList ) Alors xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) To UBound(PicList) Set Rng = Cells(xRowIndex , xColIndex) Set sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Alguem conseguiu o codigo para a pergunta dele? estou precisando tambem!
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL