Export pictures from the worksheet

[Li Jianyong]

Dear Sirs,

I have a worksheet with products information with pictures. How can I
export the pictures into an folder without change the pictures name? the
exported file names should likely, picture 1.jpg ,picture 2,jpg...

thanks for your help firslty

 

[Gary''s Student]

Just save the worksheet as a Web Page. You will get an .htm file as well as
a folder containing all the pictures

 

[Don Guillett]

Private Sub ExportChartJPG()
On Error Resume Next
MkDir "c:\A"
Worksheets("Chart").ChartObjects(1).Chart.Export
Filename:="C:\A\MyChart.jpg", FilterName:="jpeg"
End Sub

 

[Li Jianyong]

Hello Sir,

thanks for your message.

I can get all the pictures as SaveAs web page. But I found I get 2 pictures
per item,which doubled the source pictures in the sheet. At the same time,
the files name are not same as the shape.name property.

Looking forward to further solution