wie extrahieren Bilder von Excel-Blättern - Excel, VBA

Ich habe eine Excel-Datei. Ich habe versucht, Bilder mit HTML aus Excel zu extrahieren, aber zweimal wurden Bilder extrahiert.
Hier ist meine Excel-Datei Bildschirmshort.

Kann mir bitte jemand eine Idee geben.

Antworten:

Der folgende Code wird dies tun (getestet in 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

Falls Sie ein erstes VBA-Intro benötigen: Klicken Sie im Arbeitsblatt mit den Bildern mit der rechten Maustaste auf die Registerkarte "Blatt" und dann auf "Code anzeigen". Fügen Sie den Code dort ein.
Stellen Sie sicher, dass Sie einen Ordner mit dem Namen "images" unter C: erstellen, bevor Sie den Code ausführen (führen Sie ihn aus, indem Sie F5 drücken, wenn sich der Cursor im Code befindet).