Renaming pictures

  • Thread starter Thread starter Henk
  • Start date Start date
H

Henk

Is it possible to change the name of pictures in a workbook? E.g. rename
Picture 52 (name given by Excel itself) to Log 01.

Regards
 
If you have bunch to do try this.

Public Sub ReNamePics()
Dim Pic As Shape, K As Long
For Each Pic In Selection.ShapeRange
K = K + 1
Pic.Name = "Log" & K
Next Pic
End Sub


Gord Dibben MS Excel MVP
 
Hi Henk,

I should have added that, when dealing with
Excel names, you will find Jan Karel Pieterse's
Name Manager Add-in of invaluable assistance;
I regard it as one of my indispensible tools.

Name Manager may be downloaded at:

http://www.jkp-ads.com/Download.asp
 
Back
Top