Renaming jpg filename

Hi Learning,

To rename your files, you should be able to use the following macro code:

Sub RenameFiles()

Dim iRow As Long

iRow = 1

Do Until IsEmpty(Cells(iRow,"A")) OR IsEmpty(Cells(iRow,"B"))
Name Cells(iRow,"A") As Cells(iRow,"B")
iRow = iRow + 1
Loop

End Sub


This code assumes that the files are in your current working directory. If they aren't, or if you want to rename the files into a different folder you will need to include the desired path along with the file names. For example 001.jpg in column A might correspond to C:\My Documents\My Pictures\Temp\Pic001.jpg in column B.

This macro should be placed in a standard macro module. To do this, go to the VBE (keyboard Alt-TMV), insert a new macro module (Alt-IM), and paste this code into the Code pane. Then run the macro via Excel Alt-TMM.

Regarding your second question, to reduce the size of the files you will need to use a picture editing program. I suggest using MS Photo Editor that comes with Office. To reduce a picture by the ratio of 50/700 in Photo Editor simply go to Image > Resize and dial the Width (and Height) to approximately 25%. Then do a SaveAs to save the reduced file. Then import the reduced files into Excel.

If you are planning to insert the pictures into column C manually, may I suggest an automated method? Do a search on this board for the ShowPicD function. This function will insert a picture into the cell containing the function.

Damon

Hi Damon,
Thank you for the quick response, but it is not changing the name.

What I actually need is to change the filename in my computer
Example from 001.jpg to Cap.jpg
002.jpg to Bottle.jpg


Cell =A1 001.jpg ,Cap.jpg is in Cell B1
Cell =A2 002.jpg ,Bottle.jpg is in Cell B2

After running the macro, the filename in my computer will change from
001.jpg to Cap.jpg


Can add this into the macro to default the directory ?
SetPath = "C:\Documents\My Documents\My Pictures\temp\"

Appreciate your help on this.

Learning

Hi,


HTH

Hi Kris,
I work like a charm.
Thank you for those who have attempted to help me

Learning