Renaming pictures

[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

 

[Norman Jones]

Hi Henk,

Try something like:

ActiveSheet.Pictures("Picture 1").Name = "Log 01"

 

[Henk]

Thanks Norm. It works!

Hi Henk,

Try something like:

ActiveSheet.Pictures("Picture 1").Name = "Log 01"

 

[Gord Dibben]

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

 

[Norman Jones]

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