como extrair imagens de planilhas do excel - excel, vba

Eu tenho um arquivo de excel.Eu tentei extrair imagens do Excel usando html, mas as imagens foram extraídas duas vezes.quero extrair imagens e salvar imagens com nomes correspondentes.
Aqui está o meu screenshort de arquivo do excel.

Alguém pode por favor me dar uma idéia.Como extrair imagens do arquivo excel usando (vba ou quaisquer métodos)

Respostas:

O código a seguir fará isso (testado no 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

Caso você precise de uma intro inicial do VBA: na planilha com as imagens, clique com o botão direito do mouse na guia da planilha e, em seguida, em "visualizar código" e cole o código lá.
Certifique-se de criar uma pasta chamada "imagens" em C: antes de executar o código (execute-o pressionando F5 quando o cursor estiver dentro do código).