Insert pictures

[Guest]

I currently have some pictures inserted onto a spreadsheet.

What I am wanting to do is save the individual pictures as either GIF/JPEG
files.

How can I do this?

 

[Ron de Bruin]

Hi TheRook

Save you file as a webpage and you will have a folder with all pictures in the workbook

 

[Guest]

Excellent, worked a treat.

Now that I have saved the file as a web page and have a folder of all the
pictures is it possible to automaticlly rename them. They have been saved as
image001 image 002 etc.

On the spreadsheet I have now have a list in column A of the image name and
in column B a list of the name I want to call it.

Is it possible to rename tham automatically?

Regards

 

[Guest]

Use the NAME STATEMENT

Name oldpathname As newpathname

 

[Ron de Bruin]

Hi TheRook

You can use this to rename the files in column A to the names in B

I assume you have the full path in A and B like this
C:\Data\name1.xls and C:\Data\newname1.xls

Sub test()
For Each cell In Columns("A").SpecialCells(xlCellTypeConstants)
If Dir(cell.Value) <> "" And cell.Offset(0, 1).Value <> "" Then
Name cell.Value As cell.Offset(0, 1).Value
End If
Next cell
End Sub