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

Just save the worksheet as a Web Page. You will get an .htm file as well as
a folder containing all the pictures
--
Gary''s Student - gsnu200847


"Li Jianyong" wrote:

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

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
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Li Jianyong" wrote in message
...
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

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

"Gary''s Student" wrote:

Just save the worksheet as a Web Page. You will get an .htm file as well as
a folder containing all the pictures
--
Gary''s Student - gsnu200847


"Li Jianyong" wrote:

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