Images Excel : Insérer, redimensionner, enregistrer, supprimer plusieurs images ou photos dans Excel

Il est facile pour la plupart d'entre nous d'insérer des images stockées sur l'ordinateur dans la feuille de calcul. Veuillez procéder comme suit :

1. Dans la feuille de calcul, cliquez là où vous souhaitez insérer des images.

2. Ensuite, cliquez sur Insérer > Images > Cet appareil, voir capture d'écran :

3. Dans la fenêtre Insérer une image qui s'affiche, ouvrez le dossier contenant les images, puis maintenez la touche Ctrl enfoncée pour sélectionner les images que vous souhaitez insérer, voir capture d'écran :

4. Ensuite, cliquez sur le bouton Insérer, les images sélectionnées ont été insérées dans la feuille. Maintenant, vous pouvez ajuster ou redimensionner les images aux cellules dont vous avez besoin, voir capture d'écran :

Si vous avez Excel2013 ou une version ultérieure, vous pouvez insérer les images depuis le web ou OneDrive, veuillez procéder comme suit :

1. Dans la feuille de calcul, cliquez là où vous souhaitez insérer des images.

2. Ensuite, cliquez sur Insérer > Images > Images en ligne, voir capture d'écran :

3. Une fenêtre suivante s'affichera. Dans la section Images en ligne, veuillez taper ce que vous recherchez dans la zone de texte, puis appuyez sur la touche Entrée. Toutes les images correspondantes sont recherchées en une fois, voir capture d'écran :

4. Ensuite, sélectionnez les images que vous souhaitez, puis cliquez sur le bouton Insérer. Après avoir inséré les images, veuillez redimensionner ou ajuster les images à la position dont vous avez besoin.

Le code VBA suivant peut vous aider à insérer plusieurs images dans les cellules en fonction de la taille des cellules. Veuillez procéder comme suit :

1. Ajustez la taille des cellules dans lesquelles vous souhaitez placer l'image, puis sélectionnez les cellules.

2. Ensuite, maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

Code VBA : Insérer plusieurs photos en fonction de la taille des cellules

Sub InsertPictures()
'Updateby Extendoffice
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. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Dans la fenêtre Ouvrir, veuillez choisir le dossier contenant les photos, puis sélectionnez les images que vous souhaitez insérer, puis cliquez sur le bouton Ouvrir, et toutes les photos sélectionnées ont été insérées dans votre sélection en fonction de la taille des cellules. Voir capture d'écran :

Si vous n'êtes pas familier avec le code VBA, ici, vous pouvez utiliser une fonctionnalité puissante – Importer des images de Kutools pour Excel. Avec cette fonctionnalité utile, vous pouvez importer plusieurs images dans les cellules rapidement et facilement.

1. Cliquez sur Kutools Plus > Importer & Exporter > Importer des images, voir capture d'écran :

2. Dans la boîte de dialogue Importer des images qui s'affiche, veuillez effectuer les opérations suivantes :

• Spécifiez l'ordre des images à partir de la liste déroulante Ordre d'importation, vous pouvez choisir Remplir par colonne, puis par ligne ou Remplir par ligne, puis par colonne ;
• Ensuite, cliquez sur le bouton Ajouter pour sélectionner les fichiers d'image ou le dossier pour ajouter les photos dans la liste d'images ;
• Cliquez sur le bouton Taille d'importation, dans la boîte de dialogue Taille d'importation d'image, sélectionnez l'option Taille de la cellule correspondante.
• 

3. Après avoir terminé les paramètres, veuillez cliquer sur le bouton Importer, et maintenant, une autre boîte de dialogue Importer des images s'affiche, spécifiez les cellules de destination dans lesquelles vous allez importer l'image, voir capture d'écran :

4. Ensuite, cliquez sur le bouton OK, toutes les images sélectionnées ont été insérées pour correspondre à la taille des cellules spécifiques comme le montre la capture d'écran ci-dessous :

Le code VBA suivant peut vous aider à insérer plusieurs images correspondant à leurs noms rapidement, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

Code VBA : Insérer plusieurs photos correspondant à leurs noms

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

Remarque : Dans le code ci-dessus, vous pouvez modifier la hauteur et la largeur de l'image dans les scripts « .ShapeRange.Height =60 », « .ShapeRange.Width =60 » selon vos besoins.

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et dans la fenêtre ouverte, veuillez sélectionner le dossier contenant les images que vous souhaitez insérer, voir capture d'écran :

4. Et ensuite, cliquez sur le bouton OK, une boîte de dialogue s'affiche, veuillez sélectionner les cellules contenant les noms d'image, voir capture d'écran :

5. Continuez à cliquer sur le bouton OK, et une autre boîte de dialogue s'affiche, veuillez sélectionner les cellules dans lesquelles vous souhaitez placer les images, voir capture d'écran :

6. Enfin, cliquez sur OK, et les photos ont été insérées dans les cellules en fonction de leurs noms en une fois, voir capture d'écran :

Si vous avez Kutools pour Excel, avec sa fonctionnalité Associer l'importation d'images, vous pouvez insérer les images en fonction des noms d'image rapidement et facilement.

1. Cliquez sur Kutools Plus > Importer & Exporter > Associer l'importation d'images, voir capture d'écran :

2. Dans la boîte de dialogue Associer l'importation d'image qui s'affiche, veuillez effectuer les opérations suivantes :

• Spécifiez l'ordre des images à partir de la liste déroulante Ordre d'importation, vous pouvez choisir Remplir par colonne, puis par ligne ou Remplir par ligne, puis par colonne ;
• Ensuite, à partir de la zone de texte Plage de correspondance, sélectionnez les noms d'image sur lesquels vous souhaitez insérer des images ;
• Et ensuite, cliquez sur le Ajouter bouton pour sélectionner les fichiers d'image ou le dossier pour ajouter les photos dans la liste d'images ;
• Ensuite, vous devez spécifier la taille de l'image. Veuillez cliquer sur le Taille d'importation bouton, dans la Taille d'importation d'image boîte de dialogue, sélectionnez une taille d'image selon vos besoins.
• 

3. Après avoir terminé les paramètres, veuillez cliquer sur le bouton Importer, choisissez une cellule ou une liste de cellules pour localiser les images dans la boîte de dialogue Associer l'importation d'images qui s'affiche, voir capture d'écran :

4. Ensuite, cliquez sur OK, et toutes les photos dont les noms correspondent aux valeurs des cellules ont été insérées, voir capture d'écran :

Veuillez appliquer le code VBA suivant pour insérer les images en fonction d'une liste d'URLs.

1. Tout d'abord, ajustez la taille de la cellule adjacente dans laquelle vous souhaitez placer les images.

2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

Code VBA : Insérer des photos à partir d'une liste d'URLs

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

Remarques : Dans le code ci-dessus, A2:A5 est la plage de cellules qui contient les adresses URL que vous souhaitez extraire les images, vous devez changer les références de cellules selon vos besoins.

4. Ensuite, appuyez sur la touche F5 pour exécuter ce code, les photos correspondantes seront extraites des URLs vers la colonne adjacente et placées au centre des cellules, voir capture d'écran :

Kutools pour Excel a une fonctionnalité étonnante – Insérer des images à partir du chemin d'accès (URL). Avec cet utilitaire, les photos correspondantes seront extraites des URLs rapidement et facilement.

1. Cliquez sur Kutools > Insérer > Insérer des images à partir du chemin d'accès (URL), voir capture d'écran :

2. Dans la boîte de dialogue Insérer des images à partir du chemin d'accès (URL) qui s'affiche, veuillez définir les opérations suivantes :

• Sélectionnez la liste des cellules URL et une plage de cellules où vous souhaitez placer les images ;
• Spécifiez la taille des images selon vos besoins dans la section Taille de l'image.
• 

3. Et ensuite, cliquez sur le bouton Ok, et toutes les photos ont été extraites des URLs, voir capture d'écran :

Vous pouvez appliquer le code VBA suivant pour insérer les images en fonction des chemins de fichiers d'image.

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : Insérer des images à partir d'une plage de chemins de fichiers

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Après avoir inséré le code ci-dessus, appuyez sur la touche F5 pour exécuter ce code, puis une boîte de dialogue s'affiche, veuillez sélectionner les cellules du chemin de fichier, voir capture d'écran :

4. Ensuite, cliquez sur le bouton OK, toutes les images basées sur les chemins de fichiers ont été affichées dans la colonne suivante comme le montre la capture d'écran suivante :

La fonctionnalité Insérer des images à partir du chemin d'accès (URL) de Kutools pour Excel peut également vous aider à afficher les images relatives depuis le chemin de fichier.

1. Cliquez sur Kutools > Insérer > Insérer des images à partir du chemin d'accès (URL), dans la boîte de dialogue qui s'affiche, veuillez spécifier la plage de chemin de fichier, la plage pour l'exportation des images, la taille de l'image selon vos besoins, voir captures d'écran :

2. Après avoir défini les options, cliquez sur le bouton Ok, les images seront insérées dans les cellules sélectionnées en une fois, voir capture d'écran :

Conseils : Parfois, vous pouvez constater que l'image chevauche la zone de données de la feuille de calcul comme le montre la capture d'écran ci-dessous. Cela se produit parce que l'image est trop grande et qu'elle ne sera pas redimensionnée pour s'adapter à la boîte de section d'en-tête ou de pied de page automatiquement.

Pour résoudre ce problème, vous devez simplement redimensionner l'image dans l'en-tête ou le pied de page, veuillez suivre les étapes suivantes :

1. Cliquez dans la section d'en-tête ou de pied de page où l'image est située, puis cliquez sur Format de l'image sous l'onglet Design, voir capture d'écran :

2. Dans la boîte de dialogue Format de l'image, sous l'onglet Taille, veuillez ajuster la taille de l'image pour s'adapter à la boîte de section d'en-tête ou de pied de page, voir capture d'écran :

3. Et ensuite, cliquez sur OK, vous obtiendrez le résultat selon vos besoins.

1. Ouvrez la feuille de calcul dans laquelle vous souhaitez insérer une image d'arrière-plan.

2. Ensuite, cliquez sur Mise en page > Arrière-plan, voir capture d'écran :

3. Dans la fenêtre Insérer des images qui s'affiche, veuillez choisir une photo de votre ordinateur, site web ou OneDrive selon vos besoins, voir capture d'écran :

4. Maintenant, l'image a été insérée dans la feuille de calcul comme arrière-plan comme le montre la capture d'écran ci-dessous :

Avec la méthode ci-dessus, vous ne pouvez pas changer la transparence de l'image d'arrière-plan insérée, donc, si la couleur de l'image d'arrière-plan est forte, il ne sera pas pratique pour vous de lire les données de la feuille de calcul. Cette section, je vais parler de comment insérer une photo transparente derrière les cellules.

1. Cliquez sur Insérer > Formes, et sélectionnez une forme rectangulaire, voir capture d'écran :

2. Ensuite, dessinez une forme aussi grande que vous le souhaitez dans la feuille de calcul active.

3. Après avoir dessiné la forme, un onglet Outils de dessin est affiché dans le ruban, puis cliquez sur Format > Contour de la forme > Aucun contour, voir capture d'écran :

4. Et ensuite, cliquez avec le bouton droit sur la forme, et choisissez Formater la forme dans le menu contextuel, voir capture d'écran :

5. Dans le volet Formater la forme qui s'affiche, sous l'onglet Remplissage & Ligne, effectuez les opérations suivantes :

• Sous la section Remplissage, sélectionnez l'option Remplissage avec image ou texture ;
• Cliquez sur le bouton Insérer depuis la source d'image, et choisissez une photo que vous souhaitez insérer ;
• Ensuite, ajustez la transparence de la photo selon vos besoins dans la section Transparence.
• 

6. Et ensuite, vous verrez la forme remplie de photos ressemble à une image d'arrière-plan comme le montre la capture d'écran ci-dessus.

Remarque : Après avoir inséré ce type d'image d'arrière-plan, vous ne serez pas autorisé à entrer du texte dans la plage d'image.

Les deux méthodes ci-dessus ont leurs propres limitations, la première méthode ne peut pas changer la transparence de l'image, la deuxième méthode ne permet pas d'entrer du texte dans les cellules à l'intérieur de la zone de l'image. Pour résoudre ces problèmes, la fonctionnalité Insérer un filigrane de Kutools pour Excel peut vous rendre service.

1. Cliquez sur Kutools > Insérer > Insérer un filigrane, voir capture d'écran :

2. Dans la boîte de dialogue Insérer un filigrane qui s'affiche, sélectionnez Filigrane image, puis cliquez sur le bouton Sélectionner une image pour choisir une photo que vous souhaitez insérer, puis spécifiez l'échelle de l'image et cochez l'option Érosion, voir capture d'écran :

3. Ensuite, cliquez sur le bouton Ok, la photo a été insérée dans la feuille de calcul comme image d'arrière-plan.

Dans Excel, vous pouvez utiliser la fonction Copier en tant qu'image pour copier et insérer une plage de cellules comme image.

1. Sélectionnez la plage de cellules que vous souhaitez copier et insérer comme image.

2. Ensuite, cliquez sur Accueil > Copier > Copier en tant qu'image, voir capture d'écran :

3. Dans la boîte de dialogue Copier l'image qui s'affiche, sélectionnez Image dans la section Format, voir capture d'écran :

4. Ensuite, cliquez sur le bouton OK, maintenant, vous devez simplement appuyer sur Ctrl + V pour coller l'image n'importe où dans le classeur.

Dans Excel, il existe un outil Appareil photo qui peut vous aider à prendre une photo de vos données sélectionnées, puis à la coller comme image. Lorsque les données originales changent, l'image copiée sera modifiée dynamiquement.

Tout d'abord, vous devez afficher l'Appareil photo sur le ruban, puis l'appliquer.

1. Cliquez sur l'icône Personnaliser la barre d'outils Accès rapide, puis cliquez sur l'option Plus de commandes, voir capture d'écran :

2. Dans la boîte de dialogue Options Excel qui s'affiche, veuillez effectuer les opérations suivantes :

• Sélectionnez Toutes les commandes dans la liste déroulante Choisir les commandes à partir de ;
• Ensuite, faites défiler pour sélectionner Appareil photo dans la boîte de liste ;
• Et ensuite, cliquez sur le bouton Ajouter pour ajouter cet outil à la barre d'outils Accès rapide ;
• Enfin, cliquez sur OK pour fermer cette boîte de dialogue.
• 

3. Et l'outil Appareil photo a été affiché sur le ruban, voir capture d'écran :

4. Ensuite, sélectionnez la plage de cellules dont vous souhaitez une image.

5. Et ensuite, cliquez sur l'outil Appareil photo, puis allez à la feuille de calcul et cliquez n'importe où, la plage de données sera insérée comme image comme le montre la démonstration ci-dessous :

Si vous avez Kutools pour Excel, avec sa fonctionnalité Bibliothèque d'AutoTexte, vous pouvez enregistrer les données sélectionnées dans la Bibliothèque d'AutoTexte, puis l'utiliser comme image ou texte pour l'avenir comme vous le souhaitez.

1. Sélectionnez la plage de données que vous souhaitez insérer comme image.

2. Ensuite, cliquez sur Kutools > Navigation, voir capture d'écran :

3. Dans le volet Navigation qui s'affiche, cliquez sur l'icône Bibliothèque d'AutoTexte, puis cliquez sur l'icône Ajouter le contenu sélectionné à l'AutoTexte, voir capture d'écran :

4. Dans la boîte de dialogue Ajouter à l'AutoTexte qui s'affiche, spécifiez un nom pour cet élément, puis sélectionnez un groupe auquel vous souhaitez l'ajouter. Voir capture d'écran :

5. Ensuite, cliquez sur le bouton Ajouter pour l'ajouter au volet Bibliothèque d'AutoTexte. Si vous souhaitez insérer cette plage comme image, il vous suffit de cliquer sur une cellule pour localiser l'image, puis de trouver l'élément enregistré dans le volet Bibliothèque d'AutoTexte, et de cliquer sur Insérer en tant que > Image (EMF) dans la liste déroulante de l'élément. Et la plage de données sera insérée dans la feuille comme image, voir captures d'écran :

Normalement, dans Excel, vous pouvez créer une plage nommée dynamique, puis utiliser l'image liée pour résoudre cette tâche dans Excel.

1. Tout d'abord, vous devez créer deux colonnes contenant les noms de produits et les images relatives, voir capture d'écran :

2. Ensuite, veuillez créer une liste déroulante pour les valeurs des cellules. Cliquez sur une cellule pour afficher la liste déroulante, puis cliquez sur Données > Validation des données > Validation des données, voir capture d'écran :

3. Dans la boîte de dialogue Validation des données qui s'affiche, sous l'onglet Paramètres, choisissez Liste dans la liste déroulante Autoriser, puis sélectionnez les cellules que vous souhaitez créer la liste déroulante à partir de la zone de texte Source, voir capture d'écran :

4. Cliquez sur OK, et la liste déroulante avec les valeurs des cellules a été créée, sélectionnez un élément de la liste déroulante, voir capture d'écran :

5. Ensuite, cliquez sur Formules > Définir un nom, voir capture d'écran :

6. Dans la boîte de dialogue Nouveau nom qui s'affiche, veuillez effectuer les opérations suivantes :

• Entrez un nom appelé monimage dans la zone de texte Nom ;
• Ensuite, copiez et collez cette formule : =INDEX(Feuille11!$A$2:$B$6, MATCH(Feuille11!$E$2, Feuille11!$A$2:$A$6,0),2) dans la zone de texte Fait référence à.

  

  Remarque : Dans la formule ci-dessus :

  • Feuille11!$A$2:$B$6 : est la feuille de calcul et la plage qui contient les valeurs et les photos que vous souhaitez utiliser ;
  • Feuille11!$E$2 : est la cellule dans la feuille de calcul où vous avez créé la liste déroulante ;
  • Feuille11!$A$2:$A$6 : est la liste de cellules sur laquelle vous avez créé la liste déroulante ;
  • Le numéro variable2 est le numéro de colonne contenant les photos. Si vos photos sont dans la colonne C, vous devez entrer3.

7. Et ensuite, cliquez sur le bouton OK, puis veuillez copier et coller la photo correspondante en fonction de la valeur de la cellule dans E2 de la plage originale à la cellule F2, voir capture d'écran :

8. Ensuite, veuillez sélectionner la photo dans la cellule F2, puis entrez cette formule =monimage (monimage est le nom de la plage que vous avez créé à l'étape6) dans la barre de formule, voir capture d'écran :

9. Après avoir entré la formule, appuyez sur la touche Entrée, et maintenant, lorsque vous choisissez un élément de la liste déroulante, sa photo relative sera affichée immédiatement. Voir capture d'écran :

La méthode ci-dessus peut être difficile pour la plupart d'entre nous, ici, je vais vous présenter une fonctionnalité pratique – Liste déroulante avec image de Kutools pour Excel, avec cet outil utile, vous pouvez créer plusieurs listes déroulantes avec leurs images relatives en seulement quelques clics.

1. Tout d'abord, vous devez créer deux colonnes contenant les noms de produits et les images relatives dans votre feuille de calcul.

2. Et ensuite, cliquez sur Kutools > Liste déroulante > Liste déroulante avec image, voir capture d'écran :

3. Dans la boîte de dialogue Liste déroulante avec image qui s'affiche, si vous avez créé les colonnes de valeurs de cellules et d'images, veuillez ignorer l'étape1, puis, sélectionnez les données originales et la plage d'images et la plage de sortie, voir capture d'écran :

4. Et ensuite, cliquez sur le bouton Ok, les listes déroulantes avec images ont été créées dans les cellules sélectionnées, et en sélectionnant un élément de la cellule déroulante, sa photo correspondante sera affichée en une fois, voir la démonstration ci-dessous :

Normalement, vous pouvez utiliser la fonctionnalité Enregistrer sous pour enregistrer toutes les images du classeur, veuillez procéder comme suit :

1. Cliquez sur Fichier > Enregistrer sous, dans la fenêtre Enregistrer sous, spécifiez un dossier pour placer les fichiers exportés, puis choisissez Page Web(*.htm;*.html) dans la liste déroulante Enregistrer sous, voir capture d'écran :

2. Et ensuite, cliquez sur le bouton Enregistrer, allez dans le dossier spécifique, vous verrez deux fichiers, l'un est le fichier au format HTML, et l'autre est un dossier qui contient les photos, graphiques ou autres objets du classeur. Voir capture d'écran :

3. Ensuite, vous pouvez faire glisser uniquement les images vers un autre dossier selon vos besoins.

Remarque : En utilisant cette fonctionnalité Enregistrer sous, vous obtiendrez chaque photo deux fois, l'une est plus petite, l'autre est plus grande, donc vous pouvez enregistrer les images de résolution plus élevée selon vos besoins.

Pour enregistrer toutes les images du fichier Excel, vous pouvez également changer l'extension de fichier en RAR. Veuillez procéder comme suit :

1. Changez l'extension de fichier xlsx en rar comme le montre la capture d'écran ci-dessous :

2. Ensuite, décompressez le fichier, et vous verrez3 dossiers et1 fichier dans le dossier, voir capture d'écran :

3. Ensuite, cliquez pour ouvrir le dossier xl, puis ouvrez le dossier media, vous verrez que toutes les images sont stockées ici sans doublons, voir capture d'écran :

Si vous avez Kutools pour Excel, avec sa fonctionnalité Exporter le graphique, vous pouvez rapidement exporter certains objets spécifiques, tels que des photos, graphiques, formes au format image selon vos besoins.

1. Cliquez sur Kutools Plus > Importer & Exporter > Exporter le graphique, voir capture d'écran :

2. Dans la boîte de dialogue Exporter le graphique qui s'affiche, effectuez les opérations suivantes :

• Choisissez l'option Images dans la liste déroulante Type ;
• Spécifiez un dossier pour enregistrer vos photos exportées ;
• Ensuite, cliquez sur la liste déroulante du Format d'exportation pour choisir un format pour vos photos.
• 

3. Enfin, cliquez sur le bouton Ok, toutes les images dans le classeur actuel ont été enregistrées dans le dossier que vous avez spécifié, voir capture d'écran :

Pour supprimer les photos de la feuille de calcul actuelle, le code VBA ci-dessous peut vous aider, veuillez procéder comme suit :

1. Activez la feuille de calcul qui contient les images que vous souhaitez supprimer.

2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

Code VBA : Supprimer toutes les photos de la feuille de calcul actuelle

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et toutes les photos de la feuille de calcul active sont supprimées en une fois.

Si vous devez supprimer les images d'une plage de cellules uniquement, voici un autre code simple qui peut vous aider.

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, et collez la macro suivante dans la fenêtre Module.

Code VBA : Supprimer les photos d'une plage de cellules

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Remarque : Dans le code ci-dessus, B4:C6 est la plage que vous souhaitez supprimer les photos.

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et les photos dans la plage sélectionnée seront supprimées en une fois, voir captures d'écran :

Si vous avez Kutools pour Excel, avec sa fonctionnalité Supprimer les illustrations & objets, vous pouvez rapidement supprimer les images d'une feuille de calcul, de certaines feuilles sélectionnées ou de tout le classeur.

1. Cliquez sur Kutools > Supprimer > Supprimer les illustrations & objets, voir capture d'écran :

2. Dans la boîte de dialogue Supprimer les illustrations & objets qui s'affiche, cochez Photos dans la section Supprimer, puis spécifiez la portée dans laquelle vous souhaitez supprimer les photos sous la section rechercher dans, voir capture d'écran :

3. Ensuite, cliquez sur le bouton Ok, et toutes les photos seront supprimées de la feuille de calcul, des feuilles sélectionnées ou de tout le classeur selon vos spécifications.