comment extraire des images de feuilles Excel - Excel, VBA

J'ai un fichier excel.J'ai essayé d'extraire des images d'Excel en utilisant HTML mais les images ont été extraites deux fois.Je veux extraire des images et enregistrer des images avec les noms correspondants.
Voici mon fichier écran Excel.

Quelqu'un peut-il s'il vous plaît me donner une idée.Comment extraire des images à partir de fichier Excel en utilisant (vba ou toute autre méthode)

Réponses:

Le code suivant le fera (testé sur Excel 2010).

Sub extractImgs()
Dim shp As Shape
Dim tempChart As String, wsName As String
wsName = ActiveSheet.Name
For Each shp In ActiveSheet.Shapes
If shp.Name Like "Picture*" Then
shp.Select
Charts.Add
ActiveChart.Location xlLocationAsObject, wsName
ActiveChart.ChartArea.Height = shp.Height
ActiveChart.ChartArea.Width = shp.Width
tempChart = Mid(ActiveChart.Name, Len(wsName) + 2, 100)
shp.Copy
ActiveChart.Paste
ActiveChart.Export Filename:="C:images" & shp.TopLeftCell.Offset(0, 1).Value & ".jpg", FilterName:="jpg"
ActiveSheet.Shapes(tempChart).Delete
End If
Next
End Sub

Si vous avez besoin d’une introduction VBA initiale: dans la feuille de calcul contenant les images, cliquez avec le bouton droit de la souris sur l’onglet Feuille, puis sur "Afficher le code", puis collez le code à cet endroit.
Assurez-vous de créer un dossier nommé "images" sous C: avant d'exécuter le code (exécutez-le en appuyant sur F5 lorsque le curseur est à l'intérieur du code).